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Chapter  1 

A  Coupled  Incremental  Damage  and 
Plasticity  Theory  for  Metal  Matrix 
Composites 


1.1  Introduction 

A  coupled  incremental  damage  and  plasticity  theory  for  metal  matrix  composites  is  intro¬ 
duced  here.  This  coupling  occurs  only  in  the  matrix  since  the  fibers  are  assumed  to  be 
only  elastic.  This  allows  damage  to  be  path  dependent  either  on  the  stress  history  or  the 
thermodynamic  force  conjugate  to  damage.  This  is  achieved  through  the  use  of  incremental 
damage  tensors.  Damage  and  plastic  deformations  are  incorporated  in  the  proposed  model 
that  is  used  for  the  analysis  of  fiber-reinforced  metal  matrix  composite  materials.  The  pro¬ 
posed  micro-mechanical  damage  relations  are  used  for  each  of  the  matrix  and  the  fiber.  This 
is  coupled  with  the  interfacial  damage  between  the  matrix  and  the  fiber  exclusively.  The 
damage  relations  are  linked  to  the  overall  response  through  a  certain  homogenization  proce¬ 
dure.  Two  local  incremental  damage  tensors  rn^  and  are  used  where  m"*  accounts  for 
the  damage  in  the  ductile  matrix  such  as  nucleation  and  growth  of  voids,  while  ra^  reflects 
the  incremental  damage  in  the  fibers  such  as  fracture.  An  additional  incremental  tensor 
is  incorporated  in  the  overall  formulation  that  represents  interfacial  damage  between  the 
matrix  and  the  fiber.  An  overall  incremental  damage  tensor,  m,  is  introduced  that  accounts 
for  all  these  separate  damage  tensors  m'”,  and  m^. 

For  the  undamaged  matrix  material,  a  von  Mises  type  yield  criterion  with  an  associated 
flow  rule,  and  Ziegler-Prager  kinematic  hardening  rule  are  used.  However,  the  resulting  over¬ 
all  yield  function  for  the  damaged  composite  is  anisotropic.  The  overall  kinematic  hardening 
rule  for  the  damaged  composite  system  is  a  combination  of  the  generalized  Ziegler-Prager 
rule  and  the  Phillips-type  rule  .  The  elasto-plastic  stiffness  tensor  is  derived  for  the  damaged 
composite. 

Evaluation  of  the  material  parameters  is  done  for  the  case  of  isotropic  damage. 
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1.2  Formulation  of  the  Incremental  Damage  Tensor 


1.2.1  Total  Damage  Tensor  M 

In  order  to  obtain  the  incremental  damage  tensor  m  the  concept  of  effective  stress  as  first 
used  by  Kachanov  (1958)[1]  is  presented  for  the  one  dimensional  stress  state.  The  incremental 
relations  are  subsequently  derived  using  Kachanov’s  concept.  Co  in  this  work  refers  to  the 
initial  undeformed  and  undamaged  configuration  of  the  body  and  C  is  the  corresponding 
configuration  of  the  body  that  is  both  deformed  and  damaged  after  a  set  of  external  agencies 
act  on  it.  The  state  of  the  body  after  it  has  only  deformed  without  damage  (by  removing  the 
damage  fictitiously)  is  denoted  by  C.  This  is  presented  by  Voyiadjis  and  Kattan  (1992a)[2]. 

A  linear  transformation  between  the  Cauchy  stress  in  the  configuration  (7,  and  the  effec¬ 
tive  Cauchy  stress  in  the  configuration  C  is  assumed  such  that 


or 


where 


</>  = 


=  (tA 

(1.1) 

(1  -  4>y(T 

(1.2) 

A- A 

(1.3) 

A 

In  the  above  equations  A  and  A  are  the  areas  of  crossections  of  the  axially  loaded  bar  in 
the  C  and  C  configurations  respectively.  ^  is  a  measure  of  damage.  Making  use  of  equation 
(1.2)  an  incremental  formulation  for  damage  is  obtained  such  that 

d-  =  {1  -  cj^y^a  +  {1  -  (1.4) 


The  concept  of  effective  stress  as  generalized  by  Murakami  (1988)  [3]  is  given  through  the 
generalization  of  equation  (1.2)  such  that 


a  =  M  :  (T 


(1.5) 


or 


d-’' =  M’' :  <7’’  r  =  m,f  (1.6) 

for  the  individual  constituents  of  the  matrix  and  the  fiber  respectively,  where  M  is  the 
fourth-order  damage  effect  tensor  and  is  a  function  of  the  second  order  symmetric  tensor  (j). 

The  effective  Cauchy  stress  tensor,  &,  need  not  be  symmetric  or  frame  invariant.  Once 
the  effective  Cauchy  stress,  is  symmetrized,  it  can  be  shown  that  it  satisfies  the  frame 
invariance  principle  (Voyiadjis  and  Kattan,  1992a) [2]. 

The  fourth  order  tensor  M  can  be  represented  by  a  6X6  matrix  as  a  function  of  {1 2  —  4>) 
in  the  form  (Murakami) [3] 


[M]  =  [M{l2-<f>)] 


(1.7) 
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where  J2  is  the  second-order  identity  tensor.  Murakami  [3]  has  shown  that  <p  is  symmetric 
which  is  the  generalization  of  the  scalar  variable  (f>.  The  stress  tensor  &,  in  conjunction  with 
the  matrix  form  of  M  given  by  equation  (1.7),  is  represented  by  a  vector  given  by 

[a]  =  [^11,  ^22)  ^33?  ^12?  ^23?  ^31]^  (1-8) 

The  symmetrized  effective  Cauchy  stress  tensor  &  used  here  is  expressed  by  (Lee,  et  ah, 
1986)  [4] 


^ij  =  \Wik{hj  -  4>kj)  ^  +  (1.9) 

which  is  a  second  rank  tensorial  generalization  of  the  scalar  equation  (1.2) 

The  stress  given  by  equation  (1.9)  is  frame-independent.  Utilizing  the  symmetrization 
procedure  outlined  by  equation  (1.9)  the  corresponding  6X6  matrix  form  of  tensor  M  is 
given  by  Voyiadjis  and  Kattan  (1992a)  [2]  as  follows: 


23 


[M]  = 


1 


20^22^33  ~  2<^: 

0 

0 

+  <l>12^33 

0 

[^12*^23  +  4>\3<^22 


0 

%J\\U}Z3  ~  2(/>i3 
0 

<^13</’23  +  012^33 
<f>12<t>13  +  (j>23<^ll 
0 


0 

0 

2^11^22  ~  2^j2 

0 

<^12^13  +  <l>23<^n 
4>12<f>23  +  013<^22 


(1.10) 


24’l3<f>23  +  2(/>12W33 
'24>l3<p23  +  '24>12>^33 

0 

0222^33  +  <*’1 1^4^33  ”  4^23  ~  4'l3 

<i>\24>23  +  <i>\3‘^22 
4>\24>13  +  023^*^11 


0 

24>i24>13  +  ‘^<I>23'^11 

‘^4>12<t>13  +  24)23^22 
4>124^23  +  4^13^22 

‘^11^33  +  ‘^11<^22  —  <^13  “  </>l2 

4>134>23  +  4>12^33 


2</>12<?i'23  +  2^4^13^22 

0 

4>\24>13  +  <?^'13‘*^11 
4>124>23  +  4^23<^11 
4>134>23  +  4>12^33 
W22W33  +  <^n^22  —  4>23  ~  4>\2 


where  V  Is  given  as  follows 


V  =  a;iiaJ22i^33  ~  4^\z^n  ~  4^\z^22  ~  4'i2‘^33  —  2^12<^23013  (1.11) 

The  notation  u>ij  is  used  here  to  denote  Sij  —  4>ij-  The  physical  characterization  of  damage, 
<f>  is  presented  in  section  4. 


1.2.2  Incremental  Damage  Tensor  m 

The  incremental  relation  of  equation  (1.2)  is  given  by  the  following  expression 

da  =  {1  —  4>)~^da  +  {1  —  4>)~'^44>  a  (1-12) 
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Equation  (1-12)  may  also  be  obtained  using  Figure  1.1.  In  the  local  sub-configurations  of 
the  matrix,  O’",  and  fiber,  C-^,  equation  (1.12)  isexpressed  as  follows 

da''  =  (1  -  (fry^da’-  -f  (1  -  (f>'')-^d4>’'  a''  (1.13) 

for  r  =  m,f.  The  generalization  of  the  concept  of  the  incremental  relation  given  by  equation 
(1.12)  is  obtained  by  introducing  the  incremental  relation  of  equation  (1.6)  such  that 

da'^  =  M’’ :  do-"  +  dM’' :  o-'-  (1.14) 


or 


=  M''  +  M 


(1.15) 


The  superposed  dot  indicates  material  time  differentiation.  In  order  for  equation  (1.15)  to 
be  homogeneous  in  time  of  order  one  (i.e.  stress-rate  independent)  M  should  be  a  linear 
function  of  It  will  be  demonstrated  in  this  work  that  the  following  relation  exists 


cf)  = 

Since  Af ’’  is  a  function  of  therefore 


9Ml,kl 

d<f)\ 


pq 


(1.16) 


(1.17) 


♦  r 

Consequently  the  resulting  relation  between  M  and  Is  such  that 


Mlju  = 


^^ijkl  yr  -r 
^pqrs^pq 


-pq 


or 


m"  =  r  : 


(1.18) 


(1.19) 


where  F’’  is  a  sixth  order  tensor. 

Equation  (1.19)  may  also  be  written  in  terms  of  the  strain  rate  by  making  use  of  the 
fourth  order  elasto-plastic  stiffness  tensor  such  that 


M  =  r  D’^ 


(1.20) 


Making  use  of  equation  (1.19)  in  equation  (1.15)  one  obtains  the  incremental  damage  ex¬ 
pression  such  that 


-»■  r  ■  r 

or  =  m  :  a 


(1.21) 


where 


—  ^ijkl  +  ^'ijpqkl^pq  (1.22) 

The  fourth  order  tensor  m’"  could  be  interpreted  as  the  incremental  damage  tensor  as  opposed 
to  the  total  damage  tensor  Af’’.  During  elastic  loading  and  unloading,  equation  (1.21)  could 
be  substituted  by  equation  (1.5). 
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1.3 


Relation  Between  the  Cumulative  Damage  and  the 
Local  Damage  Tensors 

1.3.1  Basic  Assumptions 

The  metal  matrix  composite  system  used  in  this  work  is  restricted  to  small  deformations 
with  infinitesimal  strains.  The  material  consists  of  an  elasto-plastic  ductile  metal  matrix 
reinforced  by  elastic  aligned  continuous  fibers.  Co  denotes  the  initial  undeformed  and  un¬ 
damaged  configuration  of  a  single  lamina  while  and  are  the  initial  matrix  and  fiber 
sub-configurations  for  the  single  lamina  respectively.  The  composite  material  is  assumed  to 
undergo  elasto-plastic  deformation  and  damage  due  to  the  applied  loads.  The  corresponding 
resulting  overall  configuration  for  a  single  lamina  is  denoted  by  C  while  the  respective  matrix 
and  fiber  local  sub-configurations  for  a  single  lamina  are  denoted  by  C’”  and  C-^  respectively. 
Damage  is  expressed  by  generalizing  the  concept  proposed  by  Kachanov  (1958)  [1]  whereby 
two  kinds  of  fictitious  configurations  C  and  C  of  the  composite  system  at  the  lamina  level 
are  considered  as  shown  in  Figure  1.2.  Configuration  C  is  obtained  from  C  by  removing 
the  different  types  of  damages  that  the  single  lamina  has  undergone  due  to  the  applied 
stresses.  However,  configuration  C  is  obtained  from  C  for  a  single  lamina  by  removing  only 
the  interfacial  damage  between  the  matrix  and  the  fiber.  The  total  or  incremental  stress 
at  configuration  C  is  converted  to  the  respective  total  or  incremental  stress  at  the  fictitious 
configuration  C  through  the  damage  tensors  m  ov  M  respectively  as  indicated  in  Figure 
1.2.  Configuration  C  is  termed  full  effective  configuration,  while  C  is  the  partial  effective 
configuration. 

The  coupled  formulation  of  the  plastic  flow  and  damage  propagation  seems  to  be  impossi¬ 
ble,  due  to  the  presence  of  the  two  different  dissipative  mechanisms  that  influence  each  other. 
This  could  be  indicated  by  the  fact  that  the  position  of  the  slip  planes  affects  the  orientation 
of  nucleated  micro-cracks.  However,  one  can  assume  that  the  energy  dissipated  in  the  yield¬ 
ing  and  damaging  processes  be  independent  of  each  other  and  apply  a  phenomenological 
model  of  interaction.  In  this  work  use  is  made  of  the  concept  of  effective  stress  (Lemaitre, 
1971)[5].  Making  use  of  a  fictitious  undamaged  system,  the  dissipation  energy  due  to  plastic 
flow  in  this  undamaged  system  is  assumed  to  be  equal  to  the  dissipation  energy  due  to  plastic 
flow  in  the  real  damaged  system. 

The  main  feature  of  the  present  approach  is  that  local  effects  of  damages  are  considered 
at  both  the  single  lamina  level  as  well  as  the  laminate  level.  The  damages  at  the  single 
lamina  level  are  described  separately  by  the  damage  in  the  matrix,  damage  in  the  fiber,  and 
interfacial  damage  between  the  matrix  and  the  fiber.  This  is  schematically  indicated  in  Figure 
1.2  where  the  undamaged  matrix  and  fiber  configurations  and  respectively,  are 
transformed  to  their  respective  damaged  configurations  C™  and  through  the  incremental 
fourth  order  damage  tensors  m’”  and  mC  m”*  reflects  damage  in  the  matrix  only  and 
accordingly  m-^  reflects  damage  in  fibers  only.  These  configurations  could  also  be  transformed 
through  the  fourth  order  damage  tensors  M”*  and  as  shown  in  Figure  1.2.  However, 
as  will  be  demonstrated  later  the  local  incremental  damage  tensors  are  better  suited  for  use 
in  the  formulation  of  the  constitutive  equation  of  the  damaged  material  behavior.  One  can 
also  easily  express  the  overall  incremental  damage  tensor  m  in  terms  of  its  local  components 
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m’”,  and  m'^.  Furthermore,  equations  are  considerably  simplified  and  it  also  yields  a 
more  efficient  computational  solution  for  the  boundary  value  problems. 

Damage  tensors  m"*  and  reflect  damage  in  matrix  only  and  accordingly  and 
reflect  damage  in  fibers  only.  Following  this  local  damage  description,  the  local-overall 
relations  are  used  to  transfer  the  local  damage  effects  to  the  whole  composite  system  in  con¬ 
figuration  C  as  shown  in  Figure  1.2.  This  is  accomplished  through  the  stress  concentration 
tensors  S'"  and  of  the  matrix  and  fibers,  respectively. 

The  effect  of  interfacial  damage  between  the  fibers  and  the  matrix  is  represented  by  a 
serial  incremental  transformation  (or  equivalently  and  transforms  the  configuration 
C  to  the  final  damaged  configuration  C.  Referring  to  Figure  1.2,  the  local  nature  of  damage 
of  this  approach  for  the  single  lamina  is  clear,  and  different  damages  are  separately  isolated. 

Referring  to  Figure  1.2  this  approach  is  summarized  in  the  following  three  steps.  The 
incremental  local  damage  tensors  m”*  and  are  first  applied  to  the  local  effective  configura¬ 
tions  C'”  and  (7-^,  respectively.  This  is  followed  by  applying  the  damage  stress  concentration 
factors  S’”  and  to  the  local  partial  effective  configurations  C'^  and  C-^  in  order  to  ob¬ 
tain  the  overall  partial  effective  configuration  C.  Finally,  the  incremental  interfacial  damage 
tensor  m'^  is  applied  to  the  overall  partial  effective  configuration  C  in  order  to  obtain  the 
overall  damaged  configuration  C  of  a  single  lamina. 

The  tensor  m™  encompasses  all  the  pertinent  damage  related  to  the  matrix  while  the 
tensor  reflects  the  damage  pertinent  to  the  fibers  (Voyiadjis  and  Kattan,  1993)[6].  How¬ 
ever,  the  interfacial  damage  tensor  M'^  is  related  to  the  interfacial  damage  variable 
An  interfacial  damage  variable  can  be  defined  through  the  use  of  an  RVE  (Representative 
Volume  Element)  as  indicated  by  Voyiadjis  and  Park  (1995)[7] 

•t>‘  =  (1-23) 

where  S  is  the  total  interfacial  length,  between  the  fiber  and  the  matrix  and  S  is  the  effective 
(net)  resisting  length  corresponding  to  the  total  interfacial  length  in  contact. 

1.3.2  Theoretical  Formulation  of  m 

An  incremental  overall  damage  tensor  m  is  introduced  for  the  whole  composite  system  as 
shown  in  Figure  1.1.  This  tensor  is  defined  similarly  to  the  definitions  of  m"*,  and 
such  that 


d"  =  m  :  <r  (1-24) 

or 

da  —  m:  da  (1.25) 

m  reflects  all  types  of  damages  that  the  composite  undergoes  including  the  damage  due 
to  the  interaction  between  the  matrix  and  fibers.  Similarly  a  tensor  M  is  used  for  the  total 
stresses  (Voyiadjis  and  Kattan,  1993  [6],  Kattan  and  Voyiadjis  (1993b)  [8])  as  indicated  by 
equation  (1.5).  The  matrix  representation  for  M  was  explicitly  derived  by  expressing  the 
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stress  in  vector  form.  The  tensor  M  as  well  as  tensor  M  can  be  shown  to  be  symmetric.  It 
follows  from  equation  (1.22)  that  the  incremental  damage  tensor  m  is  also  symmetric.  This 
property  will  be  used  extensively  in  the  derivation  that  follows.  The  same  holds  true  for 
tensors  m*”,  and 

Similar  to  tensor  M^,  both  tensors  and  could  be  represented  in  terms  of  second 
order  tensors  (f)^  and  respectively  as  shown  in  Voyiadjis  and  Kattan  (1993)  [6]  and  Kattan 
and  Voyiadjis  (1993b)[8].  It  therefore  follows  that  m’"  and  m^,  could  be  represented 

‘  d  ’771  *  f 

in  terms  of  tensors  ^  ,  cj)  and  ^  respectively,  0^,  (j)'^  and  (f>^  respectively  and  <r.  The 
overall  effective  Cauchy  stress  &  is  related  to  the  local  effective  Cauchy  stress  and  by 
making  use  of  the  micro-mechanical  model  proposed  by  Dvorak  and  Bahei-El-Din  (1979)[9] 
such  that 


-m±m.  ,  -fi.f 

^ar  -I-  d(T 


(1.26) 


where  ^  and  are  the  effective  matrix  and  fiber  volume  fractions,  respectively.  The 
effective  matrix  Cauchy  stress  rate  and  the  corresponding  fiber  Cauchy  stress  rate  are  defined 
as  follows: 


JLni  ^  Jirn 

cr  =  m  :  a 

(1.27) 

(1.28) 

and 


where  dr  and  are  the  partial  effective  stress  rates  in  the  C'”  and  configurations, 
respectively.  These  stresses  are  termed  partial  effective  since  the  interfacial  damage  has  not 
yet  been  incorporated  into  the  formulation.  Referring  to  Figure  1.2  and  making  use  of  the 
partial  stress  concentrations  and  ,  the  corresponding  partial  effective  matrix  Cauchy 


stress  rate  and  corresponding  fiber  Cauchy  stress  rate  are  given  by  the  following  equations: 

=  B"  :  a  (1.29) 

and 


tr  =  B  :  a- 

The  partial  effective  overall  composite  Cauchy  stress  rate  o'  is  defined  as 

or  =  :  & 


(1.30) 


(1.31) 


in  terms  of  the  Cauchy  stress  rate  <r.  One  can  also  define  the  incremental  fourth  order 
damage  tensor  m  such  that 


O’  =  m  :  (T 


(1.32) 


Making  use  of  relations  (1.27)  and  (1.28)  in  equation  (1.26)  one  obtains  the  following 
expression: 


<T  =  c  m 


trn  t  f  if 

(T  +  c-'m^  :  <T 


(1,33) 
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Substituting  into  equation  (1.33)  for  the  partial  effective  matrix  and  fiber  stress  rates 
from  relations  (1.29)  and  (1.30)  respectively  and  making  use  of  equation  (1.31)  the  resulting 
equation  is  given  as  follows: 

&  =  (c'^m™  :  s’”  +  cW  :.B^)  :  :  d-  (1.34) 

Comparing  equation  (1.34)  with  expression  (1.21)  one  concludes  that  the  following  rela¬ 
tion  is  obtained  between  the  overall  incremental  damage  tensor  m  and  its  components  m”^, 
and  m'^: 

m  =  :B^)  :  vti^  (1.35) 

This  expression  defines  the  cumulative  incremental  damage  of  the  composite  as  a  function 
of  its  local  components. 


1.4  Experimental  Determination  of  Damage 

Damage  is  characterized  here  as  micro-cracks.  However,  any  other  type  of  damage  could  be 
included  in  this  formulation.  The  physical  interpretation  of  the  damage  tensor  (f/  is  also 
presented  here.  The  tensor  (f)’'  is  evaluated  experimentally  for  two  different  types  of  laminate 
layups. For  each  case  and  (f)^  is  computed  independently. 


Matrix  (Ti-14Al-21Nb) 

Fiber  (SiC) 

Modulus 

Poisson’s  Ratio 

Initial  Volume  Fraction 

Yielding  Stress 

Kinematic  hardening  Parameter  h 

8  X  10^  MPa 

0.30 

0.65 

360  MPa 

90  MPa 

41  X  10^  MPa 

0.22 

0.35 

Table  1.1:  Material  Properties 


Voyiadjis  and  Venson  (1995)  [10]  presented  experimental  investigations  and  procedures 
for  the  determination  of  damage  for  the  macro-  and  the  micro-analysis  of  a  SiC-Titanium 
Aluminide  metal  matrix  composite  with  material  properties  indicated  in  Table  1.1.  Uniaxial 
tension  tests  are  performed  in  the  work  on  laminate  specimens  of  two  different  layups.  Flat 
dogbone  shaped  specimens  are  fabricated  from  each  of  the  layups.  For  each  of  the  different 
layups,  specimens  are  loaded  to  various  load  levels  ranging  from  70%  of  the  load  rupture  to 
the  rupture  load  at  room  temperature.  Making  use  of  this  experimental  procedure,  damage 
evolution  is  experimentally  evaluated  through  a  quantitative  micro-analysis  technique.  This 
analysis  is  performed  using  scanning  electron  microscopy  on  three  mutually  perpendicular 
representative  cross-sections  from  a  representative  volume  element  defined  for  the  theoretical 
development  of  damage  evolution. 

The  damage  tensor  proposed  by  Voyiadjis  and  Venson(1995)[10]  is  defined  for  a  general 
state  of  loading  based  upon  the  experimental  observations  of  crack  densities  on  tree  mutually 
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perpendicular  cross-sections  of  the  specimens.  The  damage  tensors,  (j)^ ,  <}>^  and  (f)'^  are 
defined  as  a  second-rank  tensor  in  the  form  of 


and  in  the  matrix  form  as  follows 


4>’-  = 

(1.36) 

PxPx 

pxpy 

PxPz 

Pypx 

PyPy 

PyPz 

(1.37) 

^PzPx 

PzPy 

PzPz 

Where  pi  for  i  —  x,y,z  is  the  normalized  crack  density  on  a  cross-section  whose  normal  is 
along  the  i-axis.The  crack  density  on  the  representative  volume  element  for  the  cross- 
section  is  calculated  as  follows: 


and 


pi  = 


h 

A, 


(1.38) 


(1.39) 


In  the  above  expressions,  li  is  the  total  length  of  the  cracks  on  the  cross-sectional  area 
for  each  constituents,  m  is  a  normalization  factor  chosen  so  that  the  values  of  the  damage 
variable  (j/  fall  within  the  expected  range  0  <  <  1 ,  and  p*  is  defined  as  follows 


P*  =  \/ Pima.  +  PLa.  +  PLa. 

Where  Pyma.  ^nd  pzma.  ^re  the  values  of  UjAi  at  the  maximum  load  (rupture)  on  the 

respective  cross-section. 

The  damage  tensor  obtained  experimentally  from  equation  (1.36)  is  used  in  the  consti¬ 
tutive  equations  in  order  to  predict  the  mechanical  behavior  of  the  composite  system.  This 
procedure  may  be  used  independently  to  quantify  each  of  the  damages  in  the  matrix  and 
the  fiber.  Use  is  made  of  the  scanning  electron  microscope  in  order  to  quantify  the  damage 
tensor  (j)''  expressed  by  equations  (1.36)  and  (1.37).  This  is  performed  at  various  load  levels 
ranging  from  rupture  load  down  to  70  %  of  the  rupture  at  room  temperature  (Voyiadjis 
and  Venson,  1995)[10].  A  more  extensive  investigation  would  be  to  start  from  the  onset 
of  load  all  the  way  to  rupture.  .However,  the  damage  tensor  (j)’’  determined  experimentally 
by  Voyiadjis  and  Venson  (1995)  [10]  is  between  70  %  and  of  the  rupture  load  to  the  final 
rupture  for  two  types  of  laminate  layups  (0/90)®  and  (±45)^  each  consisting  of  four  plies. 
These  layups  are  examinated  both  numerically  and  experimentally  (Voyiadjis  and  Venson, 
1995[10]).  Since  in  order  to  quantify  damage,  the  specimen  has  to  be  sectioned,  consequently 
different  specimens  are  used  to  quantify  damage  at  various  percentages  of  the  rupture  load. 

The  crack  densities  p,-  measured  experimentally  by  the  procedure  outlined  above  are 
shown  in  Tables  1.2  and  1.3  for  the  (0/90)s  and  (±45)*  layups,  respectively.  The  normalized 
values  Pi  are  calculated  using  the  values  of  pi  obtained  previously  for  each  layups.  The  results 
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are  then  used  to  calculate  the  damage  variable  (f)’’  based  on  expression  (1.37).  Damage  strain 
curves  are  consequently  generated  for  each  layups  orientation.  These  damage  values  can  then 
be  used  in  the  constitutive  model  to  accurately  predict  the  mechanical  behavior  of  metal 
matrix  composites.  For  a  more  complete  discussion  on  the  physical  characterization  the 
reader  is  referred  to  a  paper  by  Voyiadjis  and  Venson  (1995)  [10]. 


Table  1.2:  Local  Crack  densities  for  (0/90)s  laminate 


%Load 

%Strain 

p7  xio-^ 

1 

o 

1 — 1 

X 

X  10-^ 

pi  X  10"^ 

70 

.2414 

0.00 

49.23 

— 

— 

75 

.2779 

0.00 

49.32 

0.00 

42.44 

80 

.4324 

0.00 

51.84 

0.00 

101.29 

85 

.5268 

0.00 

52.99 

0.00 

117.01 

90 

.5729 

0.00 

56.67 

48.98 

97.61 

Table  1.3:  Local  Crack  densities  for  (±45)5  laminate 


1.5  Damage  Criterion 

In  this  work  it  is  assumed  that  matrix  undergoes  ductile  damage  while  the  fiber  undergoes 
brittle  damage.The  mechanisms  of  interfacial  damage  are  dependent  on  the  fiber  direction.  It 
is  clear  that  the  damage  mechanism  for  each  of  the  constituents  of  the  composite  materials 
is  different  from  the  other  and  therefore  one  single  damage  micro-mechanism  can  not  be 
considered  for  the  three  types  of  damages  outlined  here  for  a  single  lamina.  Each  type  of 
damage  evolution  is  considered  separately. 

In  order  to  obtain  a  damage  criterion  for  non-proportional  loading,  the  anisotropy  of 
damage  increase  (hardening)  must  be  considered.  The  anisotropic  damage  criterion  used  here 
is  expressed  in  terms  of  a  tensorial  hardening  parameter,  h  (Voyiadjis  and  Park,  1995)[7]. 

g'=g'{Y’-,K')  =  0  ,  r  =  (1.41) 
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The  generalized  thermodynamic  backsterss  force  Yij  i  which  is  a  concequence  of  crack  inter¬ 
actions  is  given  by 


I'j  =  (1.43) 

where  c'’  is  a  material  constant  and 

p^ik,  =  Kj'K; 

Here  Y''  is  a  generalized  thermodynamic  force  conjugate  to  the  damage  tensor  (j^  for  each 
of  the  damage  associated  with  the  matrix,  fiber  and  debonding.  The  hardening  tensor  is 
expressed  as 


= 


(1.45) 

Tensors  w'’  and  V'’  (which  represents  the  initial  threshold  against  damage  for  the  material) 
are  defined  for  orthotropic  materials(Voyiadjis  and  Park,  1995)[7]  in  terms  of  the  generalized 
Lame  constants  AJ,A2,  A3  and  v{,V2i'‘^z  follows 


u  = 


0 


V 


0 

0 


-^2^2  (aj) 


0 

0 


\ 


/ 


(1.46) 


and 


0 


A>2'" 


V'-  =  0 

VO  0 

where  is  a  scalar  representing  the  total  damage  energy  and  given  by 


0 
0 


(1.47) 


.-f 


Y''  -.(fxit 


m,f,d 


(1.48) 


For  a  simpler  damage  model  rj^  may  be  eliminated  by  setting  it  equal  to  unity  and  seting 
z=  ^5. This  causes  less  flexibility  in  the  behavior  of  the  damage.  However,  this  allows 
the  reduction  of  material  parameters  by  five. 

The  generalized  Lame  constants  in  this  work  are  defined  as  follows 

X’:  =  ,  r  =  m,f,d  and  1,2,3  (1.49) 

where  are  the  effective  moduli  of  elasticity  along  the  principal  axes  defined  along  the 
direction  of  the  fibers  and  transversely  to  them. 

The  damaging  state  is  any  state  that  satisfies  g  =  0.  The  four  states  are  outlined  below 


5’'<0, 

(elastic  unloading) 

(1.50a) 

/  =  o. 

A 

0 

(elastic  unloading) 

(1.50b) 

/  =  o, 

:Y'  =  0 

dY’’ 

(neutral  loading) 

(1.50c) 

/  =  o, 

:  y” >  0 

(loading  from  a  damaging  state) 

(1.50d) 
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1.6  Damage  Evolution 

1.6.1  Matrix  Damage  and  Plasticity  Evolution 

The  two  energy  dissipative  mechanisms  of  plasticity  and  damage  are  exhibited  by  the  metal 
matrix.  The  two  energy  dissipative  behaviors  influence  each  other.  As  out  lined  later  in  this 
section  the  plastic  strain  rate  and  the  damage  rate  are  each  functions  of  the  stress  and  the 
conjugate  force  to  damage.  Consequently,  the  energies  dissipated  due  to  damage  and  that 
due  to  plasticity  are  interdependent  to  each  other. 

The  total  power  of  dissipation  of  the  matrix  is  given  by 

n*"  =  (2.51) 

where  is  the  plastic  dissipation  and  is  the  corresponding  damage  dissipation.  The 
plastic  dissipation  is  expressed  as 

»  *771 

fjmp  ^  -f  a'”  :/3  (1.52) 

The  second  term  of  expression  (1.52)  is  associated  with  kinematic  hardening.  The  associated 
damage  dissipation  is  given  by 

pjmd  ^  F'"  :  +  7 

The  term  K'^k'^  is  associated  with  isotropic  damage  hardening.  The  third  term  in  expres¬ 
sion  (1.53)  is  associated  with  kinematic  hardening.  As  mentioned  previously,  it  relates  to 
interaction  of  cracks. 

Utilizing  the  calculus  of  functions  of  several  variables,  one  introduces  two  Lagrange  mul¬ 
tipliers  A”  and  A™  in  order  to  form  the  function  fl'"  such  that 

^  ft'”  -  A;”/™  -  A^^”*  (1.54) 

In  equation  (1.54),  is  the  plastic  yield  function  of  the  matrix  and  d™  is  the 

back-stress  tensor.  Since  F’”  is  a  function  of  4>'^  and  (as  it  will  be  shown  in  (1.84)),  the 
yield  function  may  be  expressed  as  follows  /'"(F'",<^"*,d'").  For  non-associative  plasticity 
the  yield  function  Z'”  should  be  replaced  by  the  corresponding  plastic  potential  function. 
The  damage  potential  p'"  is  a  function  of  F™  and  or  cr”*,  </>'"  and  k™  such  that 

=  p'"(d’",  (/>’”,  K*")  =  0  or  «”*)  =  0  (1.55) 

In  order  to  extremize  the  function  O'”,  one  uses  the  necessary  conditions 


50'” 

50-'”  ~  ^ 

(1.56) 

50*” 

ay'” 

(1.57) 

(1.53) 
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Equations  (1.56)  and  (1.57)  yield  the  corresponding  plaatic  stain  rate  and  damage  rate 
evolution  equations  respectively,  which  are  coupled  as  shown  below 


•  dh  •  da^ 

•'  j.  A'”  ^ 


(1.58) 


^  dY'^  ^  dY^ 


(1.59) 


Equation  (1.59)  gives  the  increment  of  the  damage  from  the  damage  potential  and  the 
yield  function  /*”. 

It  is  clear  that  coupling  exists  between  the  plastic  strain  rate  and  the  damage  rate  in  the 
matrix. 

Using  the  consistency  condition  for  the  matrix  yield  function  /”*  and  the  matrix  damage 
such  that 


/  =0 


(1.60a) 


df^  •  m  df^  ?m  df^  im 

dY^  ■ 


(1.60b) 


r  =  0 


(1.61a) 


dg^  dg^  im^dg^  _ 

^  d(f)^  '  ^  ^  ^  ^ 


(1.61b) 


Expressions  (1.61)  state  that  after  an  increment  of  damage,  the  volume  element  again 
must  be  in  a  damaging  state.  Making  use  of  expression  (1.48)  in  its  incremental  form 


kr  =  Y'^  -.(j) 

one  can  then  express  equation  (1.61b)  as  follows 


as”  . ,  aj”  .  as”  .  . 


(1.62) 


(1.63) 


A  Prager-Zigler  kinematic  hardening  evolution  law  is  used  in  the  damaged  configuration 
such  that 


(1.64) 
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where  is  defined  by  Voyiadjis  and  Park  (1995) [7]  such  that 


a”  =  3  6  Ar 


(1.65) 


and  b  is  the  kinematic  hardening  parameter  for  the  matrix.  The  corresponding  yield  fuction 
is  given  by 


_  oc^)  :  -af  =0 

2 


from  this  equations  one  can  conclude 

dr 


and  therefore 


OL 


A 


r,9r. 

‘  atr” 


(1.66) 


(1.67) 


(1.68) 


Substituting  for  from  equation  (1.59)  into  equations  (1.60b)  and  (1.63)  and  substi¬ 
tuting  a  from  equation  (1.68)  into  equation  (1.60b)  one  obtains  the  following  linear  system 


a^rn  _  i  71 
“  %  rri  .  or 

dY^  •  ^ 


Gil  ai2 
021  022 


A^ 

A? 


where  the  components  aij  are  scalars  given  by 


Oil  —  ( 

Ol2  =  ( 

021  =  ( 

022  =  ( 

Resolving  the  linear  system  (1.69)  one  obtains 

A™ 


d(tr 

+  ^ 

dg^ 

dg”^ 

dK'^ 

d<f)^ 

dfm 

.  dr 

d<f>^ 

■  dY^ 

dfm 

dg^ 

d(i>^ 

■  dY'^ 

yiTT)  . 

ym)  . 

+ 


dfm 

dY^ 
dg^ 
dY”^ 

Qjm  Qjv 


doT  ■ 


) 


A^ 


A 


022 
—  021 


-Oi2 

Oil 


9g 

d<T 


i  m 

:  a 


9/’"  .  v'” 


where 


(1.69) 


(1.70a) 

(1.70b) 

(1.70c) 

(1.70d) 


A  —  011O22  —  012O21 

Substituting  A^  and  A™  from  equation  (1.71)  into  equation  (1.59)  one  obtains 


(1.71) 


(1.72) 
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where 


1  dg^  ,  dr  ,  _  dg‘^  ^ 
■  (®22  "h  ®21  ) 


A  5^” 


dY^ 


'dY^ 


and 


1  dr  .  dr  dg^  . 

R  =  —  :  i-0'12 Qym  +ail  ii-;>m) 


A  ay’' 


ay^ 


Since  F’”  is  a  function  of  dr’”  and  one  can  write 


ay” 

W' 


I  m  dY^ 


:  O’  + 


dcp^ 


0 


(1,74) 


(1.75) 


(1.76) 


substituting  y*"  from  equation  (1.76)  into  equation  (1.73)  one  obtains  the  damage  evolution 
equation  in  the  matrix  such  that 


^  -.a 


(1.77) 


where  X"*  is  a  fourth  order  tensor  originally  defined  in  section  2  by  equation  (1.16).  The 
explicit  form  of  X’”  is  given  below 


,ay’’ 


dym 


X-  =  iS-  +  R-—)ih-R 

where  74  is  the  fourth  order  identity  tensor  expressed  as  follows 

lijkl  ~  "b 


-1 


(1.78) 


(1.79) 


The  thermodynamic  force  associated  with  the  matrix  damage  is  obtained  by  using  the 
enthalpy  of  the  damaged  matrix  as  follows 


:E  " {(T) -  ^oT) 


(1.80) 


where  $(«’")  is  the  specific  energy  due  to  kinematic  hardening,  and  E  is  the  elastic  stilfness 
of  the  damaged  matrix.  Using  equation  (1.80)  the  thermodynamic  force  of  the  matrix  is  given 
by 


dv^ 


(1.81) 


Making  use  of  the  energy  equivalence  principle  (Cordebois  and  Sidoroff,  1982)[11] 


elastic 


=  K 


elastic 


(1.82) 


one  obtains  a  relation  between  the  damaged  elastic  compliance,  E  for  the  matrix  and 
the  corresponding  undamaged  elastic  compliance  E  such  that  (Voyiadjis  and  Kattan, 
1992a)  [2] 


E  E~”' :  {(!>'")  (1.83) 

Through  the  use  of  equations  (1.80)  and  (1.81),  the  thermodynamic  force  for  the  matrix  is 
obtained  explicitly  such  that 

(1-84) 

1.6.2  Fiber  Damage  Evolution 

For  fibers  the  gradual  degradation  of  the  elastic  stiffness  is  caused  only  through  damage  and 
no  plastic  dissipation  occurs.  The  associated  damage  dissipation  of  the  fiber  is  given  by 

flf  =  =  Y^  (1.85) 


and 


=  0  (1.86) 

Since  the  plastic  dissipation  is  zero.  The  function  for  the  fiber  is  given  by 

=  n^-AV  (1-87) 


and  the  corresponding  damage  rate  evolution  of  the  fiber  is  given  by  the  expression 


BY^ 


Making  use  of  the  consistency  condition  for  the  damage  of  the  fiber 


(1.88) 


(1.89) 


one  obtains  the  evolution  equation  for  <f>^  such  that 

=  X^:a  (1.90) 

where  is  a  fourth  order  tensor  similar  to  X^  expressed  by  equation  (1.78).  The  ther¬ 
modynamic  force  associated  with  damage  of  the  fiber  Y^  is  obtained  in  similar  approach  to 
that  of  the  matrix,  y*”  and  has  a  similar  form  except  replacing  the  subscript  m  with  f. 


1.6.3  Interfacial  Damage  Evolution 

The  second  order  symmetric  tensor  <f)^  is  used  to  describe  the  interfacial  damage  as  depicted 
in  Figure  1.3  and  expressed  as  folloes  (Voyiadjis  and  Park,  1995[7]) 

=  (1.91) 

the  power  of  dissipation  due  to  interfacial  damage  is  given  by 


(1.92) 

and 

=  0 

(1.93) 

The  function  is  expressed  by 

^  n'^-AY 

(1.94) 

where 

dY<i 

(1.95) 

From  the  consistency  condition  for  the  interfacial  damage  one 
for  (f)^  such  that 

obtains  the  evolution  equation 

(f)  =  a 

(1.96) 

The  corresponding  thermodynamic  force  for  interfacial  damage  is  obtained  using  a  similar 
procedures  to  that  outlined  for  the  two  types  of  damage  and  is  given  by 


yfi  =  (1-97) 

1.7  Stiffness  Tensor  for  the  Model 

In  order  to  obtain  the  elasto-plastic  stiffness  tensor  for  the  damaged  composite  system  the 
following  procedure  is  followed.  Separate  constitutive  equations  for  each  of  the  matrix  and 
the  fiber  are  first  derived  in  their  respective  damaged  configurations  C™  and  .  These  two 
constitutive  equations  are  then  combined  into  one  in  order  to  express  the  overall  composite 
system  in  its  partial  effective  configuration  C.  The  interfacial  damage  is  finally  incorporated 
into  the  system  in  order  to  obtain  the  final  constitutive  equation  and  its  corresponding 
stiffness  tensor  that  includes  all  three  types  of  damages  in  the  damaged  configuration  C. 

The  elasto-plastic  behavior  of  the  matrix  and  the  elastic  behavior  of  the  fiber  in  their 
respective  effective  configurations  C”*  and  are  given  as  follows 


and 


= 


(1.99) 


where  and  W  are,  respectively,  the  fourth  order  elasto-plastic  stiffness  tensor  of  the 
matrix  and  the  elastic  stiffness  tensor  of  the  fiber  material.  The  stiffness  D  is  given  by 
Voyiadjis  and  Kattan(1992b)  [12]  such  that 


where 


=  E" 


^  dtr^  '  ^  dtr"^ 


^  ar.pm.ar  ... 

5o’’”  dd''^  doi^ 


d*”) 


9/”’ 


•  ^ 
■  dcr 


9/" 


d'")  :  - 

>  dcr 


(1.100) 


(1.101) 


and  6  is  a  material  constant  relating  to  the  kinematic  hardening  of  the  matrix.  The  corre¬ 
sponding  yield  function  is  given  by 

Jm  _  ^  q  j02) 

A  kinematic  hardening  law  of  the  Prager- Ziegler  Type  is  used  in  conjunction  with  this  work 
such  that 


JL  m 

Ot 


oT) 


(1.103) 


where  /x™  is  a  local  scalar  multiplier. 

The  component  damaged  elastic  stiffness  tensors  E  and  E^  in  the  local  configurations 
C""  and  respectively  are  given  by  (Voyiadjis  and  Kattan,  1993)  [6] 

E""  =  M-’”  :  E”"  ;  (1.104) 


E^  =  M-^  :  E^  :  (1.105) 

The  overall  response  of  the  composite  system  in  the  partial  effective  configuration,  C,  is 
given  by 

=  t)  :e  (1.106) 

In  order  to  obtain  D  use  is  made  of  the  following  relations  in  the  partial  effective  configura¬ 
tion,  C 


O’ 

Z'rn  Z  f 

=  4*  C  O" 

(1.107) 

X,  m 

O 

11 

(1.108) 

zf 

o 

=  E^  -.e 

(1.109) 

Um 

e 

=  A  :  e 

(1.110) 

U 

e 

= 

(1.111) 
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The  expression  for  D  is  given  by 

D  =  :A"'  +  c^E^  :A^  (1.112) 

is  the  elasto-plastic  stiffness  for  the  damaged  matrix  constituent.  Equation  (1.98)  is 
transformed  from  the  undamaged  matrix  configuration  C'^  to  the  damaged  matrix  configu¬ 
ration  C'^  in  order  to  obtain  the  damaged  elasto-plastic  stiffness  of  the  matrix  constituent, 
.  Use  is  made  of  equation  (1.27)  together  with  its  strain  rate  counterpart  and  substituted 

^  771 

in  equation  (1.98)  in  order  to  obtain  D  ,  such  that 

D™  =  m-”^  :  D""  :  m"’”  (1.113) 

In  order  to  obtain  the  overall  damage  response  of  the  composite  system  the  interfacial 
damage  tensor  m‘^  needs  to  be  incorporated  in  order  to  transform  D  from  the  configuration 
C  to  the  overall  damaged  configuration  C. 

The  elasto-plastic  stiffness  of  the  damaged  material  is  given  by 

&  =  D.e  (1.114) 

where 

D  =  (1.115) 

The  corresponding  elastic  stiffness  E  for  the  damaged  composite  is  such  that 

E  =  M-'^-.E-.M-^  (1.116) 

where  the  elastic  stiffness  in  the  partial  effective  configuration  C  is  given  by 

E  =  c-E^  -.A^^^c^E^  :A^^  (1.117) 


1.8  Evolution  of  Material  Parameters  for  the  Case  of 
Isotropic  Damage 


The  special  case  of  isotropic  damage  is  investigated  here. 

For  the  special  case  of  uniaxial  monotonic  loading  for  isotropic  materials  the  complemen¬ 
tary  strain  energy  is  expressed  as  follows 


U  = 


(1.118) 


or 


y 


1 


(1.119) 


where  E  is  the  elastic  stiffness  of  the  isotropic  material  and  (j>  =  4>n  =  4>22  =  Making 
use  of  equation  (1.118)  and 


Y  = 


dcf) 


(1.120) 
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(1.121) 


one  obtains  the  conjugate  stress  for  damage  such  that 

Y  -  ^ i - <7^ 

E{1  -  <py 

The  damage  criterion  used  here  is  simplified  such  that  c  is  set  equal  to  zero  and  therefore 


yijPijkiYki  —  1  =  0 

where 

Pijkl  —  "h  ”i”  V/;/) 

which  is  not  a  direct  function  of  damage  (f>  as  in  equation  (1.45). 
The  corresponding  damage  criterion  is  given  by 

^^E-^(l-^)-V-1^0 

and 

Vn  = 


(1.122) 


(1.123) 


(1.124) 


(1.125) 


At  initiation  of  damage,  g  =  Q  and  <?!)  =  0,  consequently  one  obtains 

<To  =  v\/  \E 


(1.126) 


where  (Tq  is  the  uniaxial  stress  at  initiation  of  damage. 

In  Figure  1.4  the  damage  criterion  g  versus  a  is  plotted.  Three  values  of  <7o  are  outlined 
for  different  cases  of  v  while  r/  =  0.08  and  (  =  0.55.  The  increase  in  the  magnitude  of  v 
delays  the  onset  of  damage.  Small  stress  increments  of  0.01  MPa  were  applied  in  order  to 
ensure  convergence  of  the  solution. 

The  power  of  dissipation  of  damage  in  this  simple  case  is  given  as 

n  =  +  Kk  +  ae’’’ +  a$  (1.127) 


Using  the  consistency  condition  one  can  solve  for  ^  and  obtain 


d(j)  = 


(1.128) 
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Figure  1.5  shows  the  behavior  of  damage  for  different  values  of  the  damage  parameter 
V.  It  is  clear  that  smaller  values  of  v  introduce  damage  and  failure  at  lower  values  of  stress, 
a. 

Figures  1.6  and  1.7  show  respectively  the  variation  of  damage  with  77  and  ^  for  a  constant 
value  of  V. 

A  consistent  incremental  damage  theory  is  presented  in  this  work  that  allows  damage  to 
be  path  dependent  with  respect  to  the  damage  conjugate  stress  Y. 


Table  1.4:  Local  Damage  Parameters 


Matrix 

Damage 

Fiber 

Damage 

Interfacial 

Damage 

Vi 

0.08 

0.06 

0.075 

0.08 

0.06 

0.073 

m 

0.08 

0.06 

0.073 

6 

0.55 

0.52 

0.55 

6 

0.55 

0.52 

0.55 

6 

0.55 

0.52 

0.55 

Vl 

0.0013 

0.001 

0.004 

V2 

0.0013 

0.001 

0.003 

V3 

0.0013 

0.001 

0.003 

1.9  Evolution  of  Different  Types  of  Damage  for  a 

Composite  Material  Loaded  in  the  Fiber  Direction 

In  this  case,  a  metal  matrix  composite  is  loaded  monotonically  in  the  elastic  region,  along 
the  fiber  direction.  Following  the  proposed  constitutive  model  for  damage  presented  in  this 
work,  the  evolution  of  the  different  types  of  damage  versus  stress  is  presented  in  Figure 
1.8.  The  types  of  damage  considered  here  are  the  matrix  damage,  (/>'",  the  fiber  damage, 
</)7,  and  the  debonding  damage,  Their  respective  evolutions  and  behaviors  are  dictated 
by  the  experimentally  determined  material  parameters  shown  in  Table  1.4  (Voyiadjis  and 
Venson,1995  [10];  Voyadjis  and  Park,  1995  [7]).  As  depicted  in  Figure  1.8,  at  a  stress  level 
of  800MPa,  the  respective  damages  are  (f>^  =  0.005,^™  =  0.013  and  (f)'^  =  0.061.  The 
order  of  initiation  and  evolution  of  damage  for  each  constituent  is  dictated  by  the  material 
parameters  obtained  experimentally. 

Figure  1.9  shows  the  degradation  of  the  matrix  and  the  fiber  stiffness  due  to  the  loading 
described  above,  while  Figure  1.10  presents  the  stress-strain  curves  for  matrix,  the  fiber  and 
the  whole  composite  utilizing  the  Mori-Tanaka  homogenization  procedure. 
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1.10  Conclusion 


A  consistent  coupled  incremental  damage  and  plasticity  theory  is  presented  in  this  work  that 
allows  damage  to  be  path  dependent  either  on  the  stress  history  or  the  thermodynamic  force 
conjugate  to  damage.  This  coupling  occurs  only  in  the  matrix  since  the  fibers  are  assumed  to 
be  only  elastic.  This  is  achieved  through  the  use  of  incremental  damage  tensors.  Damage  and 
plastic  deformations  are  incorporated  in  the  proposed  model  that  is  used  for  the  analysis  of 
fiber-reinforced  metal  matrix  composite  materials.  The  proposed  micro-mechanical  damage 
relations  are  used  for  each  of  the  matrix  and  the  fiber.  This  is  coupled  with  the  interfacial 
damage  between  the  matrix  and  the  fiber  exclusively.  The  damage  relations  are  linked  to 
the  overall  response  through  a  homogenization  procedure. 

Evolution  of  damage  is  performed  for  both  the  cases  of  overall  isotropic  damage  and 
damage  of  the  individual  constituents.  The  material  parameters  used  here  in  order  to  quatify 
damage,  are  quite  versatile  and  adequate  in  describing  the  physical  evolution  of  damage  in 
the  composite  constituents.  This  is  clearly  indicated  in  Figures  1.5  -  1.8. 

In  order  to  resolve  more  complicated  problems  than  those  presented  here,  the  finite 
element  method  is  required  for  determining  the  evolution  of  damage.  The  finite  element  im¬ 
plementation  is  presentedin  Chapter  3  and  numerical  results  for  cyclic  damage  are  presented 
in  Chapter  4. 
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Figure  1.1:  Schematic  representation  of  damage  due  to  uniaxial  loading 
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Figure  1.3:  Schematic  representation  of  interfacial  damage 


Figure  1.4:  Damag( 
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Figure  1.5;  Damage  evolution  for  different  damage  parameters  u 


Figure  1.9:  Matrix  and  fiber  Stiffness  evolutions 


Chapter  2 

Elasto-Plastic  Stress  and  Strain 
Concentration  Tensors  For 
Damaged  Fibrous  Composites 


2.1  Introduction 

As  composite  materials  undergo  damage,  the  corresponding  stress  and  strain  concentration 
tensors  do  not  remain  constant  even  for  the  case  of  elastic  deformations.  These  tensors 
are  derived  and  presented  here  for  fibrous  composites  that  undergo  damage  in  both  the 
constituents  and  the  interfacial  surface.  The  damage  in  the  matrix  includes  nucleation 
and  growth  of  voids,  etc.,  while  in  the  fibers  includes  micro-fracture,  etc.  In  addition, 
interfacial  damage  is  described  as  the  damage  due  to  debonding.  The  damaged  stress  and 
strain  concentration  tensors  are  obtained  for  the  elasto-plastic  states  of  the  metal  matrix 
composite  material.  Expressions  are  derived  and  presented  here  for  the  elasto-plastic  stress 
and  strain  concentration  tensors  for  fibrous  metal  matrix  composite  materials  in  the  damaged 
configurations.  The  fibers  are  assumed  to  be  continuous  in  this  work.  The  elastic  strain 
and  stress  concentration  tensors  using  the  Mori-Tanaka  method  for  the  case  of  undamaged 
fiberous  composites  are  formulated  by  Chen,  et  al.  (1992)[13].  These  elastic  concentration 
tensors  are  constant  in  the  undamaged  or  effective  configuration  due  to  the  fact  that  damage 
effects  in  the  material  are  ignored.  However,  these  damaged  elasto-plastic  concentration 
tensors  are  a  function  of  the  fourth  order  damage  tensors  in  the  damaged  configuration. 


2.2  Theoretical  Preliminaries 

In  the  initial  configuration,  Co  ,  the  composite  material  is  assumed  to  be  undeformed  and 
undamaged.  The  initial  matrix  and  fiber  subconfigurations  are  denoted  by  and  Cq, 
respectively.  Due  to  applied  loads,  the  composite  material  is  assumed  to  undergo  damage 
and  the  resulting  overall  configuration  is  denoted  by  C.  The  resulting  matrix  and  fiber  local 
subconfigurations  are  denoted  by  C”*  and  C"^,,  respectively.  Damage  is  quantified  using 
the  concept  proposed  by  Kachanov  (1958)[1]  whereby  two  kinds  of  fictitious  configurations 
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C  and  C  of  the  composite  systems  are  considered.  C  configuration  is  obtained  from  by 
removing  all  damages,  while  C  configuration  is  obtained  from  by  removing  only  interfacial 
damage  between  the  matrix  and  the  fiber.  C  is  termed  the  full  effective  configuration,  while 
C  is  the  partial  effective  configuration.  The  matrix  and  fiber  subconfigurations  of  the  full 
effective  configuration  are  denoted  respectively  by  C”*  and  .  Similarly,  C™  and  are 
the  subconfigurations  of  the  partial  effective  configuration.  This  is  shown  in  Figure  2.1. 

The  basic  feature  of  the  approach  presented  here  is  that  local  effects  of  damages  are 
considered  whereby  these  effects  are  described  separately  by  the  matrix,  fiber, and  interfacial 
damage  tensors.  The  fourth  order  matrix  damage  effect  tensor  and  the  fourth  order 
fiber  damage  effect  tensor  are  defined  such  that 

(2.1) 


= 


~  ^ijkl^kl 


where  d’'"  and  are  the  full  effective  matrix  and  fiber  stresses  in  the  subconfigurations  c™ 
and  respectively,  while  dr”*  and  are  the  partial  effective  matrix  and  fiber  stresses  in 
the  subconfigurations  c^,  respectively.  In  addition,  the  fourth  order  interfacial  damage 
effect  tensor  is  defined  such  as 

aij  =  M-ji^iaki  (2-3) 

where  a  is  the  partial  effective  composite  stress  in  the  C  configuration,  while  a  is  the  overall 
stress  of  the  composite  in  the  C  configuration.  The  respective  damage  effect  tensors  are 
clearly  indicated  in  Figure  2.1.  The  local  damage  effect  tensors  M'"  and  encompass 
all  the  pertinent  damages  related  to  the  matrix  and  fiber,  respectively,  while  the  damage 
effect  tensor  reflects  the  damage  pertinent  to  the  interfacial  damage  such  as  debonding 
(Voyiadjis  and  Park,  1995) [7]. 

2.3  Theoretical  Formulation  of  the  Overall  Damage 
Effect  Tensor  M 

Considering  the  overall  configurations  C,C  and  C,  one  can  introduce  an  overall  damage 
effect  tensor  M  and  a  partial  damage  effect  tensor  M  for  the  whole  composite  system. 
These  tensors  are  defined  similarly  to  the  definitions  of  and  such  that 

(Tij  —  MijkiCTki  (2.4) 


(Jij  —  Mijiiid'i^i  (2.5) 

The  tensor  M  reflects  all  types  of  damages  that  the  composite  undergoes  including  the 
damage  due  to  the  interaction  between  the  matrix  and  fibers,  while  the  tensor  M  reflects 
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the  damage  in  the  matrix  and  fiber  excluding  the  interfacial  damage.  This  tensor  has  been 
studied  previously  by  Voyiadjis  and  Kattan  (1993)[6].  A  matrix  representation  was  explicitly 
derived  for  this  fourth  order  tensor  by  expressing  the  stresses  in  vector  form.  The  tensor  M 
was  shown  to  be  symmetric.  The  symmetry  property  of  the  tensor  M  is  used  extensively  in 
the  derivation  that  follows.  The  same  holds  true  for  the  tensors  M'",  M and  M^.  Similar  to 
tensor  M^,  both  tensors  M”^  and  could  be  represented  in  terms  of  second  order  damage 
variable  tensors  <f>^  and  respectively,  shown  by  Voyiadjis  and  Park  (1995)  [7].  The 
overall  effective  composite  stress  a  is  related  to  the  local  effective  stresses  and  by 
making  use  of  the  micromechanical  model  proposed  by  Dvorak  and  Bahei- El-Din  (1979)  [14] 
such  that 

+  (2.6) 

where  and  are  the  matrix  and  fiber  volume  fractions,  respectively  in  the  undamaged 
configurations.  The  partial  effective  stresses  of  the  matrix  and  fiber  are  related  to  the  partial 
effective  overall  stress  of  the  composite  by  the  partial  damage  stress  concentration  tensors, 
such  that 


a 


m 

kl 


D7n  - 

^klpq^pq 


(2.7) 


^kl  ”  BklpqO'pq  (2-8) 

771  f 

where  B  and  B  are  the  partial  damaged  stress  concentration  tensors  for  the  matrix  and 
fibers,  respectively.  Substituting  equations  (2.1)  and  (2.2)  into  (2.6),  one  obtains  the  follow¬ 
ing  expression: 

(2-9) 

Making  use  of  (2.7)  and  (2.8)  into  (2.9),  one  obtains  the  following  expression: 

dij  =  c  (2.10) 


or 

Cij  =  + 

Finally  substituting  equation  (2.3)  into  (2.11),  one  obtains  the  following  relation: 

^ijkl^Mpg  +  ^ijkl^klpg)^pqrs^rs 

Comparing  equation  (2.4)  with  equation  (2.12),  the  following  relation  is  obtained 

Mijki  = 
or 

Mijkl  = 

where 


(2.11) 

(2.12) 

(2.13) 

(2.14) 

(2.15) 
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2.4  Effective  Volume  Fraction 

Since  the  fictitious  effective  configuration  is  obtained  by  removing  all  damages  that  the 
material  has  been  subjected  to  consequently  it  follows  that  the  volume  fractions  in  the 


effective  configuration  will  differ  from  the  initial  volume  fractions.  However,  the  volume 
fractions  of  configuration  C  are  assumed  to  be  equal  to  the  initial  volume  fractions.  In  order 
to  obtain  an  evolution  expression  for  the  effective  volume  fractions,  we  first  address  the  simple 
case  of  one-dimensional  damage  model  using  the  definition  of  Kachanov’s  (1958)[1]  effective 
stress  concept.  The  effective  local  stresses  for  the  matrix  and  fiber  in  the  one-dimensional 
case  are  defined  by 

-m  ^ 

(7  =  ,  ,  a 

1  -  (f>'^ 

and 

(2.16) 

-I  1  -/ 

”  = 

(2.17) 

where 

dk”^  -  dk^ 

6  — 

dA^ 

(2.18) 

and 

1 

II 

(2.19) 

where  dA"  and  dk''  are  differential  areas  normal  to  the  fiber  direction  in  the  configuration 
C,  and  C,  respectively,  where  r  =  m  or  /.  The  corresponding  initial  volume  fractions  are 
defined  as  follows: 

_  dAl 
°  dAo 

(2.20) 

where 

dAo  =  dA'^  +  dAi 

Similarly,  the  effective  volume  fractions  can  be  defined  such  as 

(2.21) 

II 

(2.22) 

and 

dk  =  dk^Adk^ 

(2.23) 

• 

From  relations  (2.18)  and  (2.19),  one  obtains  respectively. 

dk^  =  (1  -  </)’")di’” 

(2.24) 
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and 


dA^  =  {l-(j)^)dA^ 


(2.25) 


Substituting  relations  (2.24)  and  (2.25)  into  equation  (2.22)  and  making  use  of  the  assump¬ 
tion,  Cq  =  c’’,  one  obtains  the  following  relations 


dA^ 

dA^ 


one  obtains  the  following  relations 


c  = 


dAl 

dA^ 


(l-</>-)  +  (l-(^/); 


(2.26) 


(2.27) 


and 


_ 


(1  -  0/)  +  (1  - 

^0 

Equations  (2.27)  and  (2.28)  satisfy  the  constraint 

c^  +  c^  =  1 


(2.28) 


(2.29) 


The  variation  of  the  effective  volume  fractions  with  matrix  and  fiber  damage  are  shown 
in  Figures  2.2  and  2.3,  respectively,  for  the  uniaxially  loaded  lamina.  The  initial  fiber 
volume  fraction  is  set  equal  to  0.35. 

The  generalization  of  equations  (2.27)  and  (2.28)  to  the  three-dimensional  damage  model 
using  the  second  order  damage  tensor  <f>  may  be  expressed  as  follows: 


{1  -  4>Ta)  +  -  <i>U) 


J 


(2.30) 


and 


eq 


(1  -  4,) + (1  - 


(2.31) 


where 


jjm  _ 

^eq 


and 


<  = 


4''. 


f 


(2.32) 


(2.33) 


where  and  are  the  critical  values  of  and  respectively,  at  failure. 
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2.5  Partial  Damaged  Stress  and  Strain  Concentration 
Tensors 

The  matrix  and  fiber  stress  concentration  factors  are  defined  as  fourth-rank  tensors.  As  com¬ 
posites  undergo  damage,  the  stress  and  strain  concentration  factors  do  not  remain  constant. 
The  relations  for  the  effective-elastic  stress  concentration  factors  for  the  matrix  and  fiber  in 
the  effective  configuration  are  given  by  the  following  two  relations  respectively:  (Figure  2.4) 


and 


-m 

(2.34) 

(2.35) 

where  .B™  and  are  the  undamage  stress  concentration  tensors  for  the  matrix  and  the 
fiber,  respectively.  The  experssions  of  the  undamaged  stress  concentration  tensors  using  the 
Mori-Tanaka  Method  are  given  in  the  next  section.  Making  use  of  equations  (2.1)  and  (2.5) 
in  expression  (2.34),  one  obtains 

(2-36) 

or 

(2-37) 

where 

BTm  =  (2-38) 

In  equation  (2.37),  the  tensor  B™  is  the  elastic  matrix  stress  concentration  tensor  in  the  par¬ 
tial  damaged  configuration  C.  Similarly,  the  corresponding  elastic  fiber  stress  concentration 
tensor  B7  in  the  partial  damaged  configuration  C  may  be  obtained  such  that 

(2.39) 

The  variation  of  the  partial  damaged  stress  concentration  tensors  B'”  and  B^  with  damage 
is  indirectly  demonstrated  through  Figures  (2.5)  to  (2.12). 

The  material  properties  are  shown  in  Table  1.1.  This  is  demonstrated  for  a  single  lamina 
loaded  axially  along  the  fiber  direction.  Figure  (2.5)  shows  the  variation  of  the  ratio  of  the 
axial  stress  in  the  fiber  to  the  axial  stress  in  the  matrix  with  respect  to  the  axial  fiber  damage 
in  conjunction  with  several  matrix  damage  cases.  Similarly,  the  variation  of  the  ratio  of 
the  axial  stress  in  the  matrix  to  the  axial  stress  in  the  fiber  with  respect  to  the  axial  damage 
in  conjunction  with  several  fiber  damage  cases  is  shown  in  Figure  (2.6).  It  is  clear  that  the 
stress  ratio  is  constant  in  the  case  when  the  damage  in  the  matrix  is  equal  to  the  damage 
in  the  fibers.  In  Figure  (2.7)  the  ratio  between  the  local  phase  stress  and  the  overall  stress 
is  plotted  with  respect  to  the  fiber  damage  (i.e.,  4)^^  =  0)  for  several  fiber  volume  fractions. 
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and  versus  =  0)  in  Figure  (2.8).  A  nonlinear  relation  is  observed  in  both  Figures 

(2.7)  and  (2.8).  In  Figures  (2.9)  to  (2.12),  different  stress  ratios  corresponding  to  those  in 
Figures  (2.5),  (2.6),  (2.7),  and  (2.8)  are  plotted  with  respect  to  damage  (^>(2  or  ^(2  • 

One  assumes  a  similar  relation  for  strains  as  that  postulated  for  stresses  given,  by  equation 
(2.6)  such  that  in  the  effective  configurations  C""  ,  and  C  one  obtains 

Cij  =  +  (2.40) 

where  c'”  and  e-^  are  the  effective  matrix  and  fiber  strain  tensors,  respectively,  and  e  is 
the  effective  overall  composite  strain  tensor.  In  the  case  of  the  effective  elastic  strain 
concentration  factors  for  the  matrix  and  fiber  in  the  effective  configuration  C  as  shown  in 
Figure  (2.4)  one  obtains  the  following  expressions: 


(2.41) 

and 

^ij  ■^ijkl^kl 

(2.42) 

where  A™  and  are  the  undamaged  strain  concentration  tensors  for  the  matrix  and  the 

fiber,  respectively.  The  experssions  of  the  undamaged  strain  concentration  tensors  using  the 
Mori-Tanaka  Method  are  given  in  the  next  section. 

Making  use  of  the  following  equations  relating  the  effective  elastic  strains  and  the  corre¬ 
sponding  partial  effective  elastic  strains  (Voyiadjis  and  Park,  1995) [7] 

(2.43) 

^ij  ^^-^ijkl  ^kl 

(2.44) 

if'  ^ 

(2.45) 

together  with  equations  (2.41)  and  (2.42)  one  obtains  the  partial  damaged  elastic  strain 
concentration  tensors  in  the  partial  damaged  C  configuration  .  These  are  given  by  the 
following  relations; 

AT,h  =  (2.46) 

and 

A{,„  =  (2.47) 

In  Figure  (2.13),  the  strain  ratio  of  the  axial  strain  in  the  fiber  to  the  axial  strain  in  the 
matrix  with  respect  to  both  the  matrix  and  fiber  damage  is  shown  to  be  constant.  The 
strain  ratio  of  the  transverse  strain  in  the  fiber  to  the  transverse  strain  in  the  matrix  with 
respect  to  fiber  damage  is  shown  in  Figure  (2.14).  Similarly,  the  strain  ratio  of  the  transverse 
strains  is  shown  in  Figure  (2.15)  with  respect  to  matrix  damage.  The  ratio  between  the  local 
phase  strain  and  the  overall  strain  {^221^22  )  is  plotted  with  respect  to  the  fiber  damage  d)™2 
(i.e.,022  ~  0)  several  fiber  volume  fractions  in  Figure  (2.16),  and  versus  (\.e.,4>22  =  0 
)  in  Figure  (2.17). 


2.6  Mori- Tanaka’s  Elastic  Strain  and  Stress 

Concentration  Tensors 

The  expressions  for  the  undamaged  elastic  stress  and  strain  concentration  tensors  given  here 
are  based  on  the  Mori-Tanaka  method.  In  the  recent  paper  by  Chen,  et  al.  (1992)[13],  the 
expressions  for  the  elastic  strain  concentration  tensors  A  and  the  elastic  stress  concentration 
factors  are  given  by 


where 


A’ijki 

—  PijpqPpqkl 

(2.48) 

%ki 

~  '^ijpg^pqkt 

(2.49) 

P oqkl  ~  [ 

(2.50) 

Gpqkl  ~ 

r  + -‘’JUA'' 

(2.51) 

The  tensors  and  J’^  are  termed  the  partial  concentration  factors  for  strain  and  stress  and 
are  expressed  in  the  following  form: 


^Lkl  —  ihlkl  +  Ppqrs{El^^i  — 


(2.52) 


'^pqkl  ~  [^pqkl  +  QpgrsiErsicl  ^rsw)] 


(2.53) 


Jm 

pqkl 


=  L 


pqkl 


(2.54) 


where  and  E'^  are  the  elastic  stiffness  tensors  of  the  fiber  and  matrix,  respectively.  The 
tensors  P  and  Q  depend  only  on  the  shape  ofthe  inclusion  and  on  the  elastic  moduli  of  the 
surrounding  matrix.  For  example,  for  an  inclusion  in  the  shape  of  a  circular  cylinder  in 
isotropic  matrix,  the  tensor  P  written  in  matrix  form  (6x6  array)  is  given  by 


[^]  = 
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(2.55) 


(2.56) 
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where  r  =  m,f,d 


j^m  Qm 

3(1  -  2A’")  T" 


(2.57) 


2(1  -  A”") 


(2.58) 


where  is  the  Young’s  modulus  of  the  matrix,  A™  is  the  Poisson  ratio  of  the  matrix,  and 
(5™  is  the  shear  modulus  of  the  matrix.The  tensor  Q  in  equation  (2.53)  is  given  by 

Qi^ki  =  E^ki-ET,,AorsKsM  (2.59) 


2.7  Damaged  Stress  and  Strain  Concentration  tensors 
Including  Interfacial  Damage 

In  order  to  include  the  interfacial  damage  in  the  damaged  stress  concentration  tensors,  two 
additional  damage  effect  tensors  and  are  introduced  as  shown  in  Figure  (2.18). 
The  termed  interfacial  damage  effect  tensor  for  the  matrix  is  defined  as  follows: 

(2.60) 

Similiarly,  the  termed  interfacial  damage  effect  tensor  for  the  fiber  is  defined  in  the  same 
manner  as  above: 


^ij  =  (2.61) 

The  overall  effective  composite  stress  in  the  partial  effective  configuration  C  is  postulated  in 
the  same  manner  as  equation  (2.6): 

a,,  =  (2.62) 

Similiar  to  equations  (2.7)  and  (2.8),  the  stresses  of  the  matrix  and  fiber  in  the  damaged 
configuration  C  are  related  to  the  overall  stress  of  the  composite  by  the  the  full  damaged 
stress  concentration  tensors  such  that  (Figure  (2.18)) 


and 


%■ 

(2.63) 

4 

Eijkl^kl 

(2.64) 

where  jB™  and  are  the  damaged  stress  concentration  tensors  including  the  interfacial 
damage.  Substituting  equations  (2.60))  and  (2.61)  into  (2.62),  one  obtains  the  following 
expression: 


<7ij 


=  +  -c> 


(2.65) 


(2.66) 


Comparing  equation  (2.3)  with  (2.65),  one  obtains  the  following  relation: 

An  interfacial  damage  variable,  for  the  interfacial  damage  effect  tensorM*^  is  defined  by 
Voyiadjis  and  Park(1995)[7],  however  the  damage  variables  for  the  damage  effect  tensors 
and  are  not  defined  directly. 

Finally,  the  damaged  stress  concentration  tensors  including  the  interfacial  damage  are 
obtained  by  making  use  of  equations  (2.3),  (2.60),  (2.61),  (2.63)  and  (2.66)  such  that 

BTiki  =  (2.67) 

B'iiU  =  (2.68) 

Similarly,  the  damaged  strain  concentration  tensors  including  interfacial  damage  are  obtained 
such  that 


AT,,,  =  (2.69) 

and 

A’-„  =  Mg,Ai,„MT.i,  (2-TO) 

2.8  Damaged  Plastic  Stress  and  Strain  Concentration 
Tensors 


In  the  case  when  the  composite  material  has  undergone  plastic  deformations,  the  correspond¬ 
ing  expressions  for  the  effective  stress  concentration  tensors  for  the  matrix  and  the  fiber  in 
the  configuration  are  given  by  the  following  relations  respectively: 


^^.7  = 

(2.71) 

and 

dajj  =  Blltakt 

(2.72) 

where  and  are  the  effective  instantaneous  plastic  stress  concentration  tensors.  These 

stress  concentration  tensors  are  obtained  in  the  same  way  as  their  elastic  counterparts. 
The  resulting  expressions  for  the  partial-damaged  plastic  stress  concentration  tensors  are 
expressed  as  follows: 

=  rn-^sBZ.^uvki 

(2.73) 

and 

Bijkl  ^ijrsBrsuv^'>J‘^kl 

(2.74) 

# 


The  effective  instantneous  plastic  strain 
making  use  of  the  following  relations 


concentration  tensors  can  be  determined  by 


and 


Ki  =  A:;i,deu 

(2.75) 

Hi  =  AjJ^udhi 

(2.76) 

Similarly,  the  partiaJ-damaged  plastic  strain  concentration  tensors  are  expressed  as  follows: 

(2.77) 

and 

(2.78) 


^ijkl  ^ijrs-^rsuv^uvkl 


Finally,  the  damaged  plastic  stress  concentration  tensors  including  the  interfacial  damage 
are  obtained  similar  to  those  of  equations  (2.67)  and  (2.68)  such  that 

(2.79) 

and 

B-lki  =  (2.80) 

The  damaged  plastic  strain  concentration  tensors  including  interfacial  damage  are  obtained 
such  that 


(2.81) 

and 

2I&  =  ”'t.AlL.mZtu  (2.82) 

where  and  are  the  incremental  interfacial  damage  effect  tensors  for  the  matrix  and 
the  fiber,  respectively,  while  is  the  incremental  interfacial  damage  effect  tensor. 


2.9  Conclusion 

The  stress  and  strain  concentration  tensors  derived  here  are  for  fibrous  composites  with 
continuous  fibers  that  undergo  damage  in  both  the  constituents  and  the  interfacial  damage. 
The  damage  in  the  matrix  includes  nucleation  and  growth  of  voids,  micro-fracture,  etc.,  while 
in  the  fibers  includes  micro-fracture,  etc.  In  addition,  interfacial  damage  between  the  matrix 
and  fiber  is  descibed  as  debonding  damage.  The  damage  stress  and  strain  concentration 
tensors  are  obtained  for  the  elasto-plastic  states  of  the  material  and  are  based  on  the  Mori- 
Tanaka  method  in  the  undamaged  configuration  of  the  material.  The  derived  concentration 
tensors  are  functions  of  the  damage  effect  tensors  and  undamaged  concentration  tensors.  As  a 
consequence  of  damage,  the  volume  fractions  in  the  effective  undamaged  configuration  differ 
from  the  initial  volume  fractions.  Evolution  expressions  for  the  effective  volume  fractions 
are  also  derived  in  this  work.  Consistent  correlations  between  stresses,  strains,  and  damage 
are  obtained  for  the  newly  derived  concentration  tensors. 
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Figure  2.8:  Variation  of  stress  ratios  of  local  phases  to  composite  for  different  fiber  fraction 
with  respect  to  matrix  damage  (^“i- 
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Figure  2.9:  Variation  of  stress  ratios  of  fiber  to  matrix  with  respect  to  fiber  damage  </>; 
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Figure  2.11:  Variation  of  stress  ratios  of  local  phases  to  composite  for  different  fiver  volume 
fractions  with  respect  to  fiber  damage 
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Figure  2.12:  Variation  of  stress  ratios  of  local  phases  to  composite  for  different  fiver  volume 
fractions  with  respect  to  fmatrix  damage 
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Figure  2.13:  Variation  of  longitudinal  strain  ratio  of  fiber  to  matrix  with  respect  to  matrix 
and  fiber  damage. 
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Fiber  Damage 

Figure  2.14;  Variation  of  transverse  strain  ratio  of  fiber  to  matrix  with  respect  to  fiber 
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Figure  2.15:  Variation  of  transverse  strain  ratio  of  fiber  to  matrix  with  respect  to  matrix 
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Figure  2.16:  Variation  of  transverse  strain  ratio  of  local  phases  to  compositee  with  respect 
to  fiber  damage  <^22- 
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Figure  2.17:  Variation  of  transverse  strain  ratio  of  local  phases  to  compositee  with  respect 
to  matrix  damage 


Chapter  3 


Local  and  Interfacial  Damage  Analysis 
of  Metal  Matrix  Composites  Using 
the  Finite  Element  Method 

3.1  Introduction 

A  micromechanical  damage  composite  model  is  used  here  such  that  separate  local  evolution 
damage  relations  are  used  for  each  of  the  matrix  and  the  fiber.  In  addition,  this  is  coupled 
with  interfacial  damage  between  the  matrix  and  the  fiber  exclusively.  An  overall  response 
is  linked  to  these  damage  relations  through  a  certain  homogenization  procedure.  A  finite 
element  analysis  is  used  for  quantifying  each  type  of  damage  and  predicting  the  failure  loads 
of  dog-bone  shaped  specimen  and  center-cracked  laminate  metal  matrix  composite  plates. 
The  development  of  damage  zones  and  the  stress-strain  response  are  shown  for  two  types  of 
laminated  layups,  a  (0/90)s  layup  and  a  ±(45)^  layup. 

Damage  and  plastic  deformation  is  incorporated  in  the  proposed  model  that  is  used 
for  the  analysis  of  fiber-reinforced  metal  matrix  composite  materials.  The  proposed  micro¬ 
mechanical  damage  composite  model  used  here  is  such  that  separate  local  constitutive  dam¬ 
age  relations  are  used  for  each  of  the  matrix  and  the  fiber.  This  is  coupled  with  the  interfacial 
damage  between  the  matrix  and  the  fiber  exclusively.  The  damage  relations  are  linked  to  the 
overall  response  through  a  certain  homogenization  procedure.  Three  fourth-order,  damage 
tensors  M”*,  and  are  used  here  for  the  two  constituents  (matrix  and  fibers)  of  the 
composite  system.  The  matrix  damage  effect  tensor  M’”  is  assumed  to  reflect  all  types  of 
damage  that  the  matrix  material  undergoes  such  as  nucleation  and  coalescence  of  voids  and 
microcracks.  The  fiber  damage  tensor  is  considered  to  reflect  all  types  of  fiber  damage 
such  as  fracture  of  fibers.  An  additional  tensor  M'^  is  incorporated  in  the  overall  formulation 
that  represents  interfacial  damage  between  the  matrix  and  the  fiber.  An  overall  damage 
tensor,  M,  is  introduced  that  accounts  for  all  these  separate  damage  tensors  M^,  M-^,  and 
M^. 


3.2  Coordinate  Transformation 


The  three-dimensional  damage  elajsto-plastic  constitutive  equation  for  single  lamina  referring 
to  the  principal  material  coordinate  system  has  been  introduced  in  equation  (115).  The 
general  three-dimensional  constitutive  relation  of  a  composite  lamina  referring  to  the  off- 
axis  coordinate  system  denoted  by  prime  ”  ’  ”  can  be  obtained  from  equation  (1.114)  by 
coordinate  transformation.  Here,  the  x-y  plane  coincides  with  the  xi  —  X2  plane  and  the 
angle  between  the  xl  and  x  axis  is  6.  The  stress  and  strain  vectors  in  those  tow  coordinate 
systems  are  related  by 


{da}  =  [ri{<i^}' 

(3.1) 

{*}  =  {T]{dtY 

(3.2) 

where  [T]  is  a  transformation  matrix  given  by 

cos  6^ 

sin^^  0  — 2cos^sin^ 

0  0 

sin  6^ 

cos  ^^0  2  cos  9  sin  6 

0  0 

|T1  = 

0 

0  1  0 

0  0 

cos  0  sin  0 

cosO  sin  9  0  cos  9'^  —  sin 

0  0 

(3.3) 

0 

0  0  0 

cos  9  sin  9 

0 

0  0  0 

—  sin  9  cos  9 

Substituting  equations  (3.1)  and  (3.2)  to  (1.114),  we  obtain  the  relation 

{da}  =  [r]-‘[B||r]{*}' 

(3.4) 

Thus,  the  damage  elasto-plastic  stiffness  matrix  referring  to  the  off-axis 

coordinate  x  — 

y  —  z  system  is 


IB]'  =  |r]-MB)[r] 


(3.5) 


The  constitutive  equation  for  plane  stress  problem  is  obtained  from  imposing  the  plane 
stress  conditions  =  a^z  =  <Tyz  =  0  to  equation  (3.4).  The  explicit  expression  of  constitu¬ 
tive  equation  for  plane  stress  is  as  follows: 


(  XX  1 

■^*1 

Di2 

dCxx 

II 

b 

D21 

D22 

^23 

dtyy  > 

d(J  xy  J 

Pzi 

D32 

^33. 

,  d^xy  ^ 
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where 


•^11  ~  -^11  -^13^31 

Di2  =  Di2  —  ^13^32/^33 

Dh  =  d;,  -  DijD'./DJs 

Br3  =  DU-ryMiy^ 

Dl,  =  D'^-D'^A/iyss  (3.7) 

D22  —  ^22  ~  -^23^32/^33 

■^23  ~  -^24  ~  ^23 -^34/ -^33 

■C*32  =  Z?42  —  ■C^43^32/-^33 

3.3  Gross  Damage  Elasto-Plastic  Stiffness 

The  elasto-plastic  damage  stiffness  tensor  for  a  single  lamina  in  its  principal  material  coor¬ 
dinate  system  has  been  presented  in  equation  (1.115).  This  stiffness  tensor  is  transformed  to 
the  loading  coordinate  system  and  expressed  as  [D]k  in  matrix  form.  A  symmetric  stacking 
of  plies  is  considered  here  such  that  t  is  the  thickness  of  the  laminate  consisting  of  n  plies  and 
tk  is  the  thickness  of  the  kth.  lamina.  The  average  stress  increment  is  expressed  as  follows 
(in  vector  form): 


{daUe  =  -:Yl^D*]ktk  {de} 


(3,8) 


Making  use  of  equation  (3.8),  one  can  define  the  gross  damage  elasto-plastic  stiffness  for  the 
laminated  composite  as  follows  in  matrix  form: 


k=l 


(3.9) 


Making  use  of  the  assumption  of  constant  strain  through  the  laminate  thickness,  the  stresses 
in  each  lamina  are  calculated  as  follows: 


{da}k  =  [D*]k{de} 


(3.10) 


3.4  Finite  Element  Formulation 

The  governing  equation  of  the  finite  element  method  can  be  derived  from  the  principle  of 
virtual  work  such  as 


/  GijStijdV  =  /  qiSuidV  -|-  / 

Jv  Jv  Ja 


tiSuidA 


(3.11) 
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where  Sui  is  a  field  of  virtual  displacements  that  is  compatible  with  applied  forces  and  Scij 
is  the  corresponding  field  of  compatible  virtual  strains  given  by 


S  Cij 


1  r5(^u,) 
2I.  dxj 


+ 


d(Suj)- 

dxi  . 


(3.12) 


and  qi  and  U  are  body  forces  and  surface  tractions,  respectively.  For  a  small  deformation 
analysis,  we  have 


Ui  =  NijUj 


(3.13) 


Sui  =  Nij{5Uj)  (3.14) 

where  Uj  is  the  displacement  of  nodal  points  and  Nij  is  the  displacement  interpolation 
function  or  the  shape  function.  Substituting  equations  (3.12)  and  (3.14)  into  (3.11),  one 
obtains  the  equilibrium  equations  as  follows: 

/  a.j^dV  =  f  qiNiadV+  f  UNiadA  (3.15) 

Jv  Jv  Ja 

One  finally  obtains  the  incremental  equilibrium  equations  by  differentiating  both  sides  of 
equation  (3.15) 


[K]{dU}  =  {dP}  (3.16) 

where  {dU}  is  the  unknown  incremental  displacement  vector  of  the  nodal  points,  and  {dP} 
is  the  corresponding  incremental  nodal  forces  given  by 

dPa  =  /  dqiNiadV  +  f  dtiNi^dA  (3.17) 

Jv  Ja 

where  dqi  is  the  incremental  body  force  and  dti  is  the  incremental  surface  traction.  In 
equation  (3.16),  [K]  is  the  stiffness  matrix  which  is  given  by 

The  incremental  equilibrium  equation  (3.16)  expresses  the  equilibrium  between  the  internal 
forces  {dF}  (on  the  left-hand  side)  and  the  external  force  {dP}  (on  the  right-hand  side). 
The  residual  force  vector  {dR}  is  defined  by 

{dR}  =  {dP}-{dF}  (3.19) 

In  a  damage  elastic-plastic  analysis,  because  of  the  nonlinear  relationship  between  the 
stress  and  the  strain,  the  equilibrium  equation  (3.16)  is  a  nonlinear  equation  of  strains,  and 
therefore,  is  a  nonlinear  function  of  the  nodal  displacement.  Iterative  methods  are  usually 
employed  to  solve  equation  (3.16)  for  displacements  corresponding  to  a  given  set  of  external 


loads.  Moreover,  since  a  damage  elasto-plastic  constitutive  relation  depends  on  deformation 
history,  an  incremental  analysis  following  an  actual  variation  of  external  forces  is  used  to 
trace  the  variation  of  displacement,  strain,  stress,  and  damage  along  with  the  external  forces. 

In  an  incremental  analysis,  the  total  load  {P}  acting  on  a  structure  is  added  in  increments 
step  by  step.  At  the  (n  +  l)th  step,  the  load  can  be  expressed  as 

”+i{P}  =  ”{P} +^^+1  {dP}  (3.20) 

where  the  left  superscript  n  indicates  the  nth  incremental  step.  Assuming  that  the  solution 
at  the  nth  step,  are  known,  and  at  the  (n+l)th  step,  one  obtains  the  following,  corresponding 
to  the  load  increment  {dP}, 


"+■{«}  = 

”{u}  {du] 

(3.21) 

"{(t}  -f  {da} 

(3.22) 

"«{£}  = 

{de} 

(3.23) 

n{^r^ 

(3.24) 

3.4.1  Solution 

A  full  Newton- Raphson  method  is  used  in  this  work  to  solve  the  system  of  nonlinear  equa¬ 
tions  that  arise  from  the  equilibrium  equations.  A  brief  description  of  the  method  is  given 
by  Voyiadjis  (1973)[15].  The  incremental  analysis  technique  described  in  this  chapter  is  suc¬ 
cessfully  implemented  into  the  finite  element  program  NDA  (Nonlinear  Damage  Analysis) 
using  the  above  described  iterative  method.  The  steps  involved  in  the  process  of  solving  are 
briefly  described  below. 

•  INCREMENT:  Loop  for  each  load  increment 

a)  Calculate  the  load  or  applied  displacement  increment  for  the  current  incremental 
step  or  input  the  load/applied  displacement  increment. 

b)  ITERATE;  Loop  for  full  Newton-Raphson  iteration: 

1)  Compute  the  residual  load  vector  for  this  iteration  subtracting  the  equilibrium 
load  from  the  load  computed  for  the  increment. 

2)  Rotate  the  appropriate  loads  and  applied  displacements  such  that  the  degrees 
of  freedom  at  the  skew  boundary  (a  boundary  condition  that  is  not  along  the 
global  coordinate  system)  are  normal  and  tangential  to  the  skew  boundary. 

3)  Assemble  the  stiffness  matrices  and  find  the  equivalent  loads  for  the  applied 
incremental  displacements.  Since  explicit  integration  is  difficult,  Gaussian 
points  are  used  to  evaluate  the  above  integrals. 


4)  Solve  for  the  incremental  displacements  using  a  linear  solver. 

5)  Add  the  solved  iterative  incremental  displacements  to  the  applied  incremental 
displacements  to  obtain  the  complete  iterative  incremental  displacements. 

6)  Rotate  back  the  complete  iterative  incremental  displacements  at  the  skew 
boundaries  to  the  global  coordinate  system. 

7)  Cumulate  the  complete  iterative  incremental  displacements  to  the  total  in¬ 
cremental  displacements. 

8)  Find  the  stresses  due  to  the  iterative  incremental  displacements.  From  the  it¬ 
erative  deformation  gradient  and  the  stresses  updated,  compute  the  updated 
constitutive  matrix  D.  From  the  total  incremental  displacements  accumu¬ 
lated  so  far  and  the  D  matrix,  calculate  the  equilibrium  load  vector. 

9)  Check  if  the  convergence  of  solution  is  met  using  a  particular  convergence 
criterion.  If  convergence  has  not  occurred,  go  back  to  the  step  ITERATE. 

c)  If  divergence  occurs  according  to  the  convergence  criterion,  then  reduce  the  load 
increment  appropriately  as  specified  by  the  user  and  start  the  iterative  solution 
over  again  for  that  load  increment. 

d)  If  divergence  occurs  for  a  load  increment  that  has  been  reduced ’m’  times  (specified 
by  the  user),  then  report  ’convergence  not  met’  and  leave  the  solution  phase. 

e)  If  convergence  has  occurred,  then  perform  the  following  operations  before  going 
for  the  next  increment. 

1)  Update  the  nodal  positions  by  adding  the  currently  obtained  incremental 
displacements. 

2)  Transform  the  quantities  pertaining  to  the  material  property  to  the  present 
configuration. 

3)  Print  out  the  appropriate  quantities  pertaining  to  the  converged  increment 
according  to  the  user’s  specifications. 

f)  If  the  total  load  is  not  reached,  go  back  to  the  step  INCREMENT. 

.4.2  Stress  and  Damage  Computations 

•  Step  1.  Retrieve  sij,  srij,  frij.  Retrieve  also  the  information  whether  the  previous 
loading  was  a  damage  loading  or  not  (IDAMG)  and  plastic  loading  or  not  (lYILD). 

a)  If  IDAMG  =  0  when  retrieved,  then  evaluate  the  incremental  elastic-predictor 
stress  assuming  that  the  loading  is  elastic.  Use  the  undamaged  elastic  stiffness 
matrix  for  the  calculation  {dcrfj  =  Eijkidcki)- 

b)  If  IDAMG  ^  0  when  retrieved,  use  (daf-  =  Eijkidtki)- 

c)  Calculate  the  incremental  elastic-predictor  stress  of  matrix  constituent  dcrU^. 

d)  Check  if  the  predicted  stress  state  of  matrix  constituent  is  inside  the  yield  surface 
or  not. 

e)  If  the  stress  state  of  matrix  constituent  is  inside  the  yield  surface  then: 


1)  Assign  elastic  stiffness  to  the  constitutive  stiffness  and  the  predictor  stress 
increment  to  the  actual  computed  stress  increment. 

2)  Set  lYILD  =  0  indicating  the  elastic  loading  has  taken  place. 

3)  Exit  to  Step  2.  Otherwise,  go  to  the  next  step. 

f)  Set  lYILD  =  1,  then: 

1)  Calculate  the  elasto-plastic  stiffness  D  (when  IDAMG  =  1)  or  £>  (when 
IDAMG  =  0). 

2)  Update  the  quantities  (Tjj,  <7,^,  crjj,  aj-. 

•  Step  2 

a)  Check  the  damage  criteria  using  the  updated  quantity  a^j. 

b)  If  damage  criteria  g’’  <  0,  then  IDAMG  =  0.  Exit  from  the  routines. 

c)  If  damage  criteria  >  0,  then  IDAMG  =  1.  Calculate  the  damage  increment 

and  update  damage  quantity  (j)ij. 

d)  Store  the  updated  quantities  in  a  file. 

3.5  Application  to  the  Dog-Bone  Shaped 
Specimen  and  the  Center- Cracked 
Laminated  Plates 

The  finite  element  method  is  used  for  solving  a  dog-bone  shaped  specimen  and  a  center- 
cracked  laminate  plate  shown  in  Figure  3.1  that  is  subjected  to  inplane  tension.  Due  to 
symmetry  in  geometry  and  loading  as  shown  in  Figure  3.1,  one-quarter  of  the  plate  needs 
to  be  analyzed. 

Two-dimensional  plane  stress  analysis  rather  than  three-dimensional  analysis  is  used  here 
since  the  thickness  of  plate  is  much  smaller  than  the  other  dimensions.  Applying  the  ap¬ 
propriate  boundary  conditions  for  the  symmetry,  both  one-quarter  of  the  center-cracked 
laminate  plate  and  the  dog-bone  shaped  specimen  are  discretized  using  plane  stress  finite 
elements.  The  finite  element  meshes  chosen  for  analyzing  the  problems  are  shown  in  Fig¬ 
ure  3.2. 

The  four-noded  quadrilateral  element  is  used  in  both  finite  element  analyses.  Two  types 
of  laminate  layups  (±45)*  and  (0/90)*  each  consisting  of  four  plies  are  used  here.  The  thick¬ 
ness  of  each  ply  is  equal  to  0.254  mm.  Since  both  layups  are  symmetric,  no  curvature  is 
assumed.  Hence,  the  strain  through  the  plate  thickness  is  assumed  to  be  the  same.  The 
material  properties  and  damage  parameters  using  the  proposed  constitutive  model  are  listed 
in  Table  1.1  and  Table  1.4,  respectively. 

The  following  convergence  criterion  is  used  in  this  analysis  which  is  based  on  the  incre¬ 
mental  internal  energy  for  each  iteration  in  that  incremental  loading  (Bathe,  1990)  [16].  It 
represents  the  amount  of  work  done  by  the  out-of-balance  loads  on  the  displacement  incre¬ 
ments.  Comparison  is  made  with  the  initial  internal  energy  increment  to  determine  whether 
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Figure  3.1:  Dog-bone  shaped  specimen  and  center-cracked  laminated  plate. 


or  not  convergence  has  occurred.  Convergence  is  assumed  to  occur  if  for  an  energy  tolerance 
ce,  the  following  condition  is  met: 

^U^i)^n+iR_n+i  F))  (3.25) 

where  Al/b)  jg  the  incremental  displacement  residual  at  the  (i)th  iteration,  («+i/?_"+i 
is  the  out-of-balance  force  vector  at  (i-1)  iteration,  and  (A{/b)("+i7^  jg  the  internal 

energy  term  for  the  (i)th  iteration  in  the  (n-|-l)th  increment.  Divergence  is  assumed  to  occur 
if  the  out-of-balance  internal  energy  for  the  (i-l)th  iteration  is  greater  than  the  out-of-balance 
internal  energy  for  the  (i)th  iteration. 

The  load  is  incremented  with  uniform  load  increments  of  5  MPa  until  the  principal 
maximum  local  damage  value  <t>p  reaches  1.0  (f)^  <  1.0).  The  principal  maximum  local 
damage  value  (f)^  is  given  by: 


<t> 


r 

P 


+ 


r  + 


(3.26) 


Consequently,  material  failure  at  integration  point  is  assumed  when  (j>p  >  1.  The  principal 
damage  value  of  the  integration  point  in  all  elements  is  monitored  at  each  load  increment 
since  it  is  used  to  determine  the  onset  of  macro-crack  initiation  of  the  material.  The  dog-bone 
shaped  specimen  failed  when  the  final  load  of  270  MPa  is  reached  for  the(±45)s  layup  and 
480  MPa  for  the  (0/90)*  layup.  These  failure  loads  are  close  to  the  experimental  failure  loads 
276  MPa  for  the  (±45)^  layup  and  483  MPa  for  the  (0/90)^  layup  (Voyiadjis  and  Venson, 
1995)  [10].  The  material  failure  for  the  center-cracked  specimen  occurs  at  the  front  of  the 
crack  tip  when  the  final  load  of  80  MPa  is  reached  for  the  (±45)*  layup  plate  and  120  MPa 
for  the  (0/90)s  layup  plate. 


Figure  3.3:  Stress-strain  curves  of  [±45]5  layup  and  [0/90]s  layup 

3.6  Discussion  of  the  Results 

The  stress-strain  curves  from  both  the  finite  element  analyses  and  experiments  of  the  two 
types  of  layups  of  the  dog-bone  shaped  specimens  are  shown  in  Figure  3.3.  Good  correlation 
is  shown  between  the  finite  element  analysis  results  and  the  experimental  data  obtained  by 
Voyiadjis  and  Venson  (1995)[10].  Strain  contours  for  the  (±45)i  layup  and  (0/90)*  layup 
of  the  center  cracked  plates  are  shown  in  Figures  (3.4)  and  (3.5),  respectively.  Since  the 
two  types  of  layups  are  symmetric,  the  strains  in  each  laminae  of  the  layup  are  the  same. 
However,  the  stress  and  damage  distributions  are  different  for  each  laminae  of  the  layup 
since  each  laminae  has  a  different  stiffness.  Stress  contours  for  each  laminae  are  indicated 
in  Figure  (3.6)  for  the  (±45)*  layup  and  Figure  (3.7)  for  the  (0/90)*  layup.  In  Figures  (3.8) 
and  (3.9),  comparison  is  made  between  the  damage  analysis  and  the  elastic  analysis  for  the 
stress  syy  contours  around  the  crack  tip.  The  damage  analysis  shows  considerable  stress 
reduction  due  to  the  damage  around  the  crack  tip.  The  stress  ayy  at  the  front  of  the  crack 
tip  as  obtained  from  the  elastic  solution  is  higher  than  that  of  the  material  strength  of  the 
layup.  However,  in  the  damage  elasto-plastic  analysis,  the  stresses  are  reduced  such  that 
they  are  close  to  those  of  the  material  strength.  The  ayy  stress  reductions  at  the  front  of 
the  crack  tip  are  more  than  50Stress  redistributions  are  clearly  indicated  in  Figures  (3.8) 
and  (3.9).  Primarily  due  to  the  stress  reduction  around  the  crack  tip,  the  stress  is  therefore 
transferred  to  the  outer  portion  away  from  the  crack  tip.  This  is  clearly  indicated  in  Figure 
(3.9)  where  the  stress  reduction  at  the  90°  ply  is  primarily  due  to  considerable  interfacial 
damage. 

The  local  damage  contours  around  the  crack  tip  are  shown  in  Figures  (3.10),  (3.11),  (3.12), 
and  (3.13),  for  the  failure  loads  in  the  case  of  [±45],  [— 45],[0],  and  [90]  ply,  respectively.  For 
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the  [±45]s  layups,  all  types  of  damages  such  as  matrix,  fiber  and  interfacial  are  developed. 
Fiber  damage  is  considerably  more  spread  in  the  [0]  ply  than  the  interfacial  damage.  On 
the  otherhand,  interfacial  damage  is  more  pronounced  with  matrix  damage  for  the  [90]  ply. 
However,  fiber  damage  is  much  less  developed  in  the  case  of  the  [90]  ply.  This  is  in  line  with 
the  experimental  results  obtained  by  Voyiadjis  and  Venson  (1995)  [10]. 


[±45|^  Eyy  [±45], 


Figure  3.4:  Strain  contours  for  [±45]^  layup  (in  %) 


3.7  Summary  and  Conclusions 

The  proposed  constitutive  model  is  implemented  numerically  using  the  finite  element  method. 
The  model  is  used  to  analyze  the  dog-bone  shaped  specimens  and  the  center-cracked  lam¬ 
inated  plates  subjected  to  inplane  tensile  forces.  Very  good  correlations  are  demonstrated 
between  the  numerical  results  obtained  using  the  proposed  theories  and  the  experimental 
results  for  uniaxial  tension.  The  stress  and  damage  contours  in  the  case  of  the  center  cracked 
plate  show  that  stress  redistributions  and  damage  are  qualitatively  in  line  with  the  physics  of 
deformation.  The  analysis  presented  here  allows  the  separate  quantification  of  the  different 
types  of  damages  such  as  matrix,  fiber  or  debonding. 

The  authors  are  currently  working  on  damage  due  to  delamination  which  will  be  intro¬ 
duced  into  the  proposed  model  in  future  work.  In  order  to  capture  delamination  due  to 
interlamina  stresses,  a  three-dimensional,  finite  element  analysis  will  be  performed. 


61 


Damage  Elasto-Plastic  Analysis  [-45] 


Elastic  Analysis  a 


Figure  3.8:  Comparison  of  damage  elasto-plastic  analysis  with  elastic  analysis  of  stress  a, 
contours  around  the  crack  tip  for  [±45]s  layup  (units  are  in  MPa). 


Figure  3.9:  Comparison  of  damage  elasto-plastic  analysis  with  elastic  analysis  of  stress  a, 
contours  around  the  crack  tip  for  [O/9OI5  layup  (units  are  in  MPa). 


Figure  3.11:  Damage  contours  around  crack  tip  at  the  failure  load  for  [—45]  lamina. 


Figure  3.12:  Damage  contours  around  crack  tip  at  the  failure  load  for  [0]  lamina. 


lamina. 


Chapter  4 


A  Damage  Cyclic  Plasticity  Model 
For  Metal  Matrix  Composites 

4.1  Introduction 

A  mathematical  model  is  presented  here  to  simulate  the  behavior  of  metal  matrix  composites 
under  cyclic  proportional  and  non-proportional  loading.  This  model  incorporates  both  the 
phenomena  of  damage  and  cyclic  plasticity.  In  this  paper  a  brief  description  of  the  cyclic 
plasticity  model  is  presented,  [17],  and  based  on  this  model  the  development  of  the  damage 
based  plasticity  model  is  outlined. 

The  cyclic  plasticity  model  is  based  on  an  anisotropic  yield  criterion  proposed  [17],  [18]. 
The  salient  features  of  this  criterion  have  been  outlined  along  with  some  experimental  com¬ 
parisons.  The  model  further  uses  a  proposed  non-associative  flow  rule  and  a  modified  form 
of  the  bounding  surface  model  [19],  for  the  case  of  anisotropic  materials.  This  procedure 
involves  the  computation  of  the  anisotropic  plastic  modulus.  Experimental  data  from  [20] 
and  [21]  have  been  used  the  for  the  computation  of  the  various  material  parameters  as  well 
as  comparison  with  experimental  results. 

All  materials  undergo  damage,  which  is  used  synonymously  with  the  degradation  of 
the  material’s  elastic  stiffness  here,  as  repeated  loading  takes  place.  To  account  for  this 
phenomena  a  damage-plasticity  model  is  presented  here.  This  is  based  on  the  cyclic  plasticity 
behavior  blended  with  the  damage  model,  [7]  and  [22]. 

In  this  paper,  the  development  of  the  yield  surface  is  presented  at  the  outset  followed  by 
the  cyclic  plasticity  model  for  the  material  treated  as  a  continuum.  Two  different  damage 
plasticity  models  are  then  outlined  along  with  comparison  of  results  in  each  case. 

4.2  Description  of  the  Yield  Surface 

An  anisotropic  yield  surface  of  the  form 

-  1  =  0  (4.1) 

is  used  here  where  djj  is  the  overall  state  of  stress  in  the  local  coordinate  axes.  The  local 
coordinate  axes  is  defined  as  the  principal  axes  of  anisotropy  of  the  material  whereas  the 
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global  coordinate  axes  is  the  general  axes  along  which  loading  is  applied.  Figure  4.1  shows 
the  details  of  the  local  coordinate  axes  with  respect  to  the  global  coordinate  axes. 


y  / 


x-y:  general  axes  of  reference 
1-2:  principal  material  axes 
- direction  of  fiber 

Figure  4.1:  Local  and  General  Axes  of  Reference  for  a  Single  Lamina 

In  order  to  accurately  describe  the  yielding  behavior  of  the  orthotropic  metal  matrix 
composite  a  form  for  the  fourth  order  anisotropic  yield  tensor  M  is  shown  here.  This  yield 
tensor  has  been  dervied  to  satisfy  certain  criteria  typical  to  metal  matrix  composites.  It 
has  been  observed  from  experiments  that  the  shear  strength  of  anisotropic  materials  is  in¬ 
dependent  of  the  axial  yield  strength  of  the  material.  Hence  it  is  necessary  to  have  three 
additional  shear  strength  parameters  in  addition  to  the  three  principal  axial  strengths.  Thus 
six  strength  parameters  are  used  to  describe  the  yielding  behavior.  It  is  also  assumed  at  this 
stage  that  the  axial  strength  in  compression  must  be  the  same  as  that  in  tension. 

It  has  also  been  observed  that  yielding  in  metal  matrix  composites  is  pressure  dependent, 
[23] .  Most  of  the  commonly  used  forms  of  anisotropic  yield  criteria  are  pressure  independent 
ones,  [24],  [25]  .It  is  later  shown  that  the  yield  criterion  described  here  can  be  reduced  to 
the  pressure  independent  form  by  imposing  suitable  constraints  to  it._ 

The  proposed  form  of  the  fourth  order  anisotropic  yield  tensor  M  based  on  the  above 
conditions  is  as  follows.  It  can  be  expressed  as  a  function  of  two  second  order  tensors  a,j 
and  bij  as, 

m'  =  M(a,b)  (4.2) 

The  functional  form  for  M  is  defined  as, 

Mijki  =  A{aijaki)  -I-  Biaikaji)  -f  C{anajk)  -f  D{bijbki) 


(4.3) 


where  A,  B,  C  and  D  are  constants  and  aij  and  bij  are  functions  of  the  6  strength  parameters 
ki  (i=1...6).  Three  of  these  parameters  are  directly  related  to  the  axial  strengths  (fci,fc2,A:3) 
and  the  other  three,  k4,ks,ke,  are  shear  strength  parameters  used  to  define  yielding  for  an 
anisotropic  material.  These  parameters  are  measured  and  determined  in  the  local  coordinate 
axes.  Cij  and  bij  are  given  as  follows. 


ttij 


bij  — 


ki  0  0 

0  fcj  0 
0  0  fca 

0  ^4  k^ 

ki  0  ke 
ks  ke  0 


(4.4) 


(4.5) 


By  substituting  equation  (4.3)  into  equation  (4.1),  the  yield  function  equation  in  compo¬ 
nent  form  in  the  local  coordinate  axes  can  be  shown  to  be, 


{A-\-  B  +  C')(fcj(Tjj  -|-  klal2  +  ^3(^33)+ 

(2^)(fciA:2d-nd22  +  hkeOnazz  +  A:2A;3^22d’33)+ 

(2(5  -h  C)hk2  +  ^Dkl)a\2  +  (2(5  -f-  C)hkz  -h  ADkDa]^-^ 

{2{B  +  C)k2kz^-ADkl)al^-\  =  0  (4.6) 


In  the  above  equation  the  constants  A,B,C^D  are  not  material  constants,  but  are  chosen 
to  suit  various  yield  criteria  as  outlined  below. 

It  can  be  shown  that  (4.6)  reduces  to  the  familiar  von-Mises  and  Tresca  yield  criterion 
under  the  following  combinations  of  the  constants  A,B,C  and  D. 


1.  For  von-Mises  (Isotropic)  Criterion 

A=-lB=C=l 

2.  For  Tresca  (Isotropic)  Criterion 


_  1 


A=-\,B  =  C  = 

The  values  of  these  constants  chosen  here  for  this  implementation  are  A  = 
and  D  =  |.  These  values  reduce  the  above  equation  to  the  following  form. 


-hB  =  C 


B  +  ^2*^22  + 

2 

~g  (^1^2^11<^22  +  ^2^3'722'733  +  kik^CT nCTzz) 

A-{kik2  +  kl)al2  +  ^(^1^3  +  ^■5)d’i3  +  ^(^2^3  +  —  1.0  (4.7) 


The  convexity  of  the  yield  surface  has  been  mathematically  proven  in  [18],  [17]  with  the  only 
condition  that  the  six  parameters  must  be  positive.  Since  these  parameters  also  represent 
strength  quantities  physically,  it  is  always  positive. 


Using  the  equation  of  stress  transformation  between  the  local  and  global  axes  of  reference 
as  follows, 

O'ij  —  dipCfpgdqj 

where  are  the  coefficients  of  the  orthogonal  transformation  matrix,  the  yield  equation 
can  be  expressed  in  the  global  axes  of  reference  as, 

aijMijkiCTki  -1  =  0  (4.9) 

Substituting  for  aij  in  the  yield  equation  (4.1)  one  obtains 

^pgdipdjqA^ijkldkmdln^mn  1-  b  (^*^^) 

From  the  above  equation  Mijki  can  be  derived  to  be, 

~  ^^pqrsdipdjqdkrdls  (^*^^) 


4.2.1  Compcirison  with  Other  Anisotropic  Yield  Surfaces 

The  described  anisotropic  yield  surface  is  compared  with  two  well  known  anisotropic  criteria, 
that  are  frequently  used  for  metal  matrix  composites,  namely  [26]  and  [27]  criterion  for 
transversely  isotropic  materials. 

Hill’s  pressure-independent  anisotropic  yield  criterion  for  orthotropic  criterion  is  ex¬ 
pressed  as. 


f  —  G(cTzz  ^xx)  "I"  H{(^xx  ^yy) 

2Lal  +  2Mal  +  2Nal-l 


+ 


(4.12) 

The  yield  criterion  described  here  is  a  pressure  dependent  yield  criterion.  In  order  reduce 
it  to  a  pressure  independent  one,  deviatoric  stresses  along  with  condition  that  the  fourth 
order  anisotropic  tensor  M  must  satisfy  the  condition, 

Mukk  =  0  (4.13) 

By  applying  this  condition  to  the  proposed  tensor  M  we  arrive  at  the  condition, 

kl  +  +  kl  —  kik2  —  kiks  —  ^2^3  =  0  (4-14) 

By  taking  the  deviatoric  stresses  and  on  expanding  and  comparing  the  two  yield  criteria  it 
can  be  shown  that. 


H  +  G  = 

-kl 

27  ^ 

H  +  F  = 

27  ^ 

F  +  G  = 

27  ^ 

2L  = 

—  {kik2  kl) 

2M  = 

^{kiks  +  kl) 

2N  = 

\(hh  +  kl) 

(4.15) 
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The  first  three  terms  in  the  above  equation  represent  the  uniaxial  yield  strength  along 
the  three  axes  of  anisotropy  while  the  last  three  terms  represent  the  corresponding  shear 
strengths  in  both  criteria. 

The  correspondence  between  the  Mulhern,  Rogers  and  Spencers  parameters  and  criterion 
and  the  criterion  described  here  has  been  shown  in  detail  in  [17,  18]. 

4.2.2  Numerical  Simulation  of  the  Anisotropic  Yield  Surface 

A  numerical  simulation  is  done  to  evaluate  the  values  of  the  parameters  of  the  proposed 
yield  surface,  from  the  experimental  data  obtained  from  boron-aluminum  composite  tubular 
specimen  having  unidirectional  lamina,  [20]  and  [21].  The  fibers  in  the  laminae  of  the  tube 
are  aligned  parallel  to  the  axis  of  the  tube.  The  specimen  is  subjected  to  different  loading 
patterns  by  applying  axial  force,  torque  and  internal  pressure  in  order  to  determine  the  yield 
surfaces  in  the  (o-n  —  (T21)  and  ((T22  —  <721)  stress  planes,  where  an  is  the  stress  along  the  fiber 
direction,  <722  is  the  normal  stress  transverse  to  the  fiber  direction  and  (T21  is  the  longitudinal 
shear  stress.  The  parameters  which  have  been  evaluated  from  the  experimental  data  are 
then  used  to  generate  the  corresponding  yield  surfaces,  which  are  then  compared  with  those 
obtained  from  experiments. 

The  orientation  of  the  fibers  along  the  axis  of  the  tube  is  represented  mathematically 
he  rj  =  (1,0,0).  The  yield  surface  equation  (4.1)  is  then  reduced  to  component  form  for 
transversely  isotropic  material  case  where  k2  =  to  get, 

^  +  ^^2 (<^22  +  <^33)  -  ‘^kik2an{(T22  +  <^33) 

-‘^kla22cr33  +  ^{kik2  +  kDial^  +  o-ja)  +  ^(^2  +  ^6)<^23  “  1  (4-16) 

If  only  CTii  and  a2i  are  the  non-zero  stresses,  the  above  equation  can  be  reduced  to, 

F  =  +  k\)al^  -  1  (4.17) 

A  similar  equation  can  be  written  in  the  ((T22  —  <T2i)  space  also.  The  parameter  ki  is  deter¬ 
mined  from  the  yield  stress  along  the  an  axis  and  k2  from  that  along  the  a22  axis.  From 
the  third  yield  stress  namely  along  the  <T2i  axis  we  can  then  determine  ^4  using  the  above 
equation.  From  the  experimental  data,  the  values  of  initial  yield  stress  have  been  measured 
as,  crJ^j  =  87.90  MPa,  =  44.70  MPa  and  a^i  —  17.90  MPa. 

Using  the  above  data  the  values  for  ki,k2  and  k4  are  evaluated  to  be. 


*  ^2  —  21.09 

*  —  16.81 

The  yield  surfaces  that  is  represented  by  this  model  is  generated  using  the  above  param¬ 
eter  values.  Figure  4.2  shows  the  model  generated  surfaces  along  with  the  points  obtained 
from  experimental  data,  for  initial  yield  surfaces  in  this  stress  space. 
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Figure  4.2  shows  why  the  necessity  to  have  additional  parameters  to  represent  the  non- 
conformal  effect  of  shear  strength.  The  figure  shows  the  curves  corresponding  to  a  model 
having  only  the  parameters  ki  and  ^2-  It  is  observed  that  although  the  yielding  along  the 
axial  directions  are  correctly  simulated,  the  shear  strength  is  overestimated.  The  introduc¬ 
tion  of  the  shear  strength  parameter  k4  corrects  this  deficiency  and  allows  for  the  correct 
representation  of  the  observed  phenomena.  The  parameter  values  for  subsequent  yield  sur¬ 
faces  have  also  been  computed  from  the  experimental  data  available.  Figure  4.3  shows  the 
model  simulated  yield  surfaces  as  compared  to  the  experimental  subsequent  yield  surfaces. 


4.3  Continuum  Cyclic  Plasticity  Model 

Using  the  anisotropic  yield  surface  outlined  above,  a  cyclic  plasticity  model  is  described 
here,  for  the  metal  matrix  composite  treated  as  a  continuum.  The  plasticity  model  uses 
a  kinematic  hardening  rule  along  with  a  non-associative  flow  rule.  These  along  with  the 
constitutive  equations  are  described  below. 

4.3.1  Elastic  Behavior 

The  elastic  behavior  of  the  composite  material,  treated  as  a  homogeneous  continuum  with 
transversely  isotropic  properties  has  been  defined  in  [28]  and  is  used  here.  The  linear  con- 
stitutive  relation  is  expressed  as 

=  Cijkitki  (4.18) 

where  C  is  the  fourth  order  elastic  stiffness  tensor  relating  the  symmetric  second  order 
tensors  a  and  c  of  stress  and  strain  respectively.  For  a  trasnversely  isotropic  material  the 
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Proposed  N43del  (  klk21c4  ) 


SQRT(5)/2  CT22  (  MPa  ) 


Figure  4.3:  Comparison  of  Subsequent  Yield  Surfaces  in  <722  —  cri2  space 


fourth  order  elastic  stiffness  tensor  is  given  as  follows. 

Cijki  =  +  Elijlki 2mEfj^  +  2pEfjf.i  (4-19) 

where, 

tij  TTi{j  2jylij  (4.20) 

hj  =  mrjj  (4.21) 

rriij  =  Sij  -  Turjj  (4.22) 

Efjki  =  2  -  iTT-ij'mki]  (4.23) 

Eijkl  2  “I"  nT'ilijk  d"  ^jlhk  d"  (4.24) 


and  K  is  the  plane-strain  bulk  modulus,  m  is  the  transverse  shear  modulus,  p  is  the  axial 
shear  modulus  and  E  and  u  are  the  Young’s  Modulus  and  Poisson’s  ratio  respectively,  when 
the  material  is  loaded  in  the  fiber  direction.  For  a  transversely  isotropic  material  the  plane- 
strain  bulk  modulus  can  be  defined  in  terms  of  the  other  four  elastic  constants. 

4.3.2  Kinematic  Hardening 

Kinematic  hardening  is  accounted  for  by  modifying  the  form  of  the  yield  surface  as  follows. 

f  i^ij  ^ij')^ijkli^^kl  ^kl)  1‘0  (4.25) 

The  evolution  equation  for  the  backstress  is  based  on  the  Phillips  rule  and  can  be  expressed 
as  follows. 

^ij  ~  ll^rsIKij  (4.26) 

where  lij  is  a  unit  tensor  along  the  stress  rate  direction. 
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4.3.3  Non  Associative  Flow  Rule 

It  is  observed  that  the  determination  of  plastic  strains,  for  any  anisotropic  material  in  gen¬ 
eral,  and  an  MMC  in  particular  must  adopt  a  non-associative  flow  rule.  This  has  been 
demonstrated  experimentally  [20],  [21].  They  have  also  observed  that  the  direction  of  plas¬ 
tic  strains  tend  to  be  more  inclined  towards  the  shear  direction  in  a  combined  transverse 
tension-shear  loading  situation.  Also  plastic  inextensibility  along  the  flber  direction  is  an 
accepted  MMC  behavior. 

A  plastic  potential  function  is  defined  here,  the  form  of  which  is  based  on  the  proposed 
yield  function.  To  determine  the  plastic  strain  increments  (e”  )  a  non-  associative  flow  rule 
is  used  as  follows, 

."  •  dG 

where  G  is  the  plastic  potential  function.  The  potential  function  is  defined  here  as  a  function 
of  the  yield  function  g  and  the  constrained  yield  function  as  follows, 

G  =  tu/+(1.0-w)^,  0<a;<1.0  (4.28) 

The  constrained  yield  function  g  is  defined  such  that  it  satisfies  the  condition  of  plastic 
inextensibility  along  the  direction  of  fiber  defined  by  xf.  The  function  g  is  defined  using  the 
fourth  order  anisotropic  yield  tensor  M  and  a  constrained  stress  term  rij  such  that, 

g  =  rijMijkirki  -  1  (4.29) 

The  constraint  that  is  introduced  in  the  stress  term  is  that  the  plastic  strain  increment  is 
independent  of  the  component  of  stress  along  a  specified  direction  (  defined  here  by  gi) 
Following  the  procedure  outlined  in  [29]  the  constraint  is  incorporated  into  the  stress  term 
as  follows, 

vij  =  (^ij-Tgigj  (4.30) 

where  T gigj  is  the  reaction  to  an  inextensibility  constraint  along  the  direction  rj. 

Based  on  the  flow  rule,  one  can  define  a  second  order  tensor  representing  the  direction 
of  plastic  strains  as  follows. 

Hij  =  un{j {1.0  -  u;)n^..  (4.3I) 

where  a;  is  a  non-associativity  parameter  that  can  be  determined  from  experiments  as  ex¬ 
plained  in  [17]  and  n{j  and  are  unit  normals  to  the  yield  and  potential  surfaces  respectively. 

4.3.4  Evaluation  of  Elasto-Plastic  Stiffness  Matrix 

The  fourth  order  elasto-plastic  stiffness  matrix  for  the  MMC  treated  as  a  continuum  is 
determined  by  incorporating  all  the  procedures  outlined  above.  Small  deformations  as  well 
as  rate  independency  of  plastic  strains  is  assumed.  This  allows  one  to  use  an  additive 
decomposition  of  the  incremental  strain  tensor  such  that, 

=  de'iji-dt-j  (4.32) 
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where  de\  -  is  the  elastic  part  and  dt--  is  the  plastic  part  of  the  strain  tensor.  The  incremental 
stress-strain  relations  can  be  expressed  as  follows. 

d(Tij  =  Cijkidt^i  (4-33) 

=  Cijki{dtki  —  de^,i)  (4-34) 

Using  equation  (4.27)  for  the  plastic  strain  part  we  can  write  the  above  equation  as  follows. 


CTjj  —  C ^kl^ 

Equation  (4.35)  may  also  be  expressed  as  follows. 

d’fj  —  ^ijkl^kl  ^ijkl'^kl^  f  H 

Taking  the  inner  product  of  both  sides  with  n,j  one  obtains, 

(TijTiij  =  Cijkl^ij^kl  Cijkl^ij^kl^  I H 


(4.35) 

(4.36) 

(4.37) 

(4.38) 


1  + 


—  C'ijkl'^ij^kl 


(4.39) 


From  the  above  equation  one  can  express  a  as  follows. 

d  =  (4.40) 

H  -j-  Cijkl'^ij'^kl 

Hence  the  expression  for  plastic  strains  using  equation  (34)  can  be  written  explicitly  as 
follows. 

C abcdJ^ah^^cd  /  .  . .  \ 


H  A-  r  n  n  ^*4 

11  ^  ^pqrs’*'pq‘ ^rs 


(4.41) 


Substituting  this  in  the  equation  for  the  incremental  stress-strain  relations  one  obtains, 

,  \  I  Cabcd'^abdtcd  1  /  . 


Cl  aocu’ 

ijkl  dCkl  -  rr  ^kl 

11  ^  ^pqrs'*'pq'*'rs 


—  Cijkldckl 


C ijklC  abcdf^ab'^kldtcd 
H  Cpqrs'^pq'^rs 


(4.42) 

(4.43) 


Interchanging  the  indices  kl  with  cd  in  the  second  term  of  the  above  equation  one  obtains, 

I  1  CijcdCabkl'^ab'^cddtl^l  .  . 


dcTij  —  Cijfzidcp-i 


H  C pqfsTlpqTlj-Q 


(4.44) 


daij  =  Df^idtki 


where  Df^i  is  the  elasto-plastic  stiffness  of  the  material  and  is  expressed  as  follows. 


D^ki  =  Ci^ki 


C ijcd^cdC abkl^ab 

H  “h  CJpqrs'O/pqTlf  g 


(4.45) 


(4.46) 
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4.3.5  Anisotropic  Plastic  Modulus 

For  initially  anisotropic  or  orthotropic  materials  the  asymptotic  value  of  the  plastic  modulus 
H  need  not  and  in  most  cases  will  not  be  the  same  for  all  points  on  the  yield  surface. 
For  materials  where  we  assume  the  behavior  in  tension  and  compression  to  be  similar,  it  is 
reasonable  to  assume  that  at  mirror  image  points  of  the  yield  surface  ,  this  asymptotic  value 
of  the  plastic  modulus  is  the  same. 


Figure  4.4.  Illustration  to  Explain  Plastic  Modulus  Determination  for  an  Anisotropic  Mate¬ 
rial 


In  Figure  4.4,  which  shows  the  yield  and  the  bounding  surfaces  in  the  0-22  —  <^12  stress 
space,  points  A  and  B  are  the  location  of  the  stress  points  for  initial  yielding  for  loading 
in  the  <722  and  <712  respectively.  From  the  two  uniaxial  stress-strain  behaviors,  it  is  observed 
that  the  plastic  modulus  and  hence  the  values  of  the  three  parameters  that  are  required  to 
determine  the  plastic  modulus,  are  different  for  loading  paths  along  the  two  directions. 

A  modified  form  of  the  bounding  surface  model  is  used  to  model  the  behavior  of  the 
composite  material  under  cyclic  loading  situations.  The  main  idea  here  is  the  determination 
of  the  plastic  modulus  H .  The  observed  values  of  the  parameters  involved  in  the  determi¬ 
nation  of  the  plastic  modulus  are  different  along  different  loading  directions.  This  could  be 
modelled  by  using  tensors  in  the  form  of  second  order  tensors  such  as  and  H*.  These 

are  then  converted  to  a  scalar  valued  form  by  taking  the  inner  product  of  these  tensors  with 
another  second  order  tensor  pij  and  representing  the  result  as  follows. 


(4.47) 

II 

. 

(4.48) 

■S'"  =  KiPii 

(4.49) 

The  expression  for  the  plastic  modulus  can  then  be  expressed  as 

H  =  -5) 

(4.50) 
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where  5  is  the  distance  between  the  stress  point  on  the  yield  surface  and  the  image  point  on 
the  bounding  surface.  In  this  model  pij  is  chosen  to  be  the  same  direction  as  lij.  Further 
details  of  this  selection  is  presented  in  [30]. 

The  initial  bounding  surface  used  here  is  an  identical  expansion  of  the  initial  yield  surface. 
The  bounding  surface  is  expressed  as 

=  0  (4.51) 

where  is  the  image  point  on  the  bounding  surface  and  /?,j  is  its  center.  The  evolution  of 
the  center  of  the  bounding  surface  in  the  stress  space  as  loading  continues  is  related  to  the 
evolution  of  backstress  for  the  yield  surface  as  well  the  relative  distance  between  the  stress 
point  and  the  image  point. 

4.3.6  Experimental  Comparison  and  Discussions 

From  the  data  presented  in  the  paper  in  [21],  the  following  values  for  the  bounding  surface 
have  been  evaluated,  =  196.0  MPa,  <722  =  91.5  MPa  and  fTji  =  34.0  MPa.  This  results  in 
the  computed  values  of  the  initial  bounding  surface  parameters  as  ki  =  0.0108,  k2  =  0.0232 
and  ^4  =  0.0323.  The  values  for  ^3,  k^  and  ke  are  not  needed  here  and  have  been  taken  to 
be  zero. 

The  numerical  evaluation  of  the  plastic  modulus  constants  is  the  next  step  in  this  pro¬ 
cess,  i.e.  the  evaluation  of  H*j  and  hij.  Different  values  of  these  constants  are  evaluated  from 
experimental  results  of  the  uniaxial  stress-plastic  strain  curves  along  different  stress  direc¬ 
tions.  The  values  of  these  constants  have  been  evaluated  as  follows.  =  1,600,  OOOMPa 
,  H22  =  12000MPa  and  i/12  =  6000MPa  and  the  values  of  the  other  parameter  hij  are 
h\\  =  9,650,000,  ^22  =  90,000  and  ^21  =  40,  OOOMPa  respectively.  The  other  values  of  this 
tensor  are  assumed  to  be  zero. 

In  order  to  incorporate  the  non-associativity  of  the  flow  rule  that  has  been  built  into  the 
model,  the  value  of  u  has  been  chosen,  by  trial  and  error,  as  w  =  0.5. 

Figure  4.5  shows  the  comparison  between  between  experimentally  obtained  and  model 
generated  022  —  (-22"  curve  and  Figure  4.6  shows  the  same  of  <721  —  2ei2.  From  the  comparison 
of  the  experimental  results  in  [20],  [21]  and  the  model  generated  stress-strain  curves,  a 
reasonably  good  correlation  is  observed. 

The  tendency  for  ratchetting  to  occur  for  cyclic  loading,  for  5  cycles  of  loading  path  has 
also  been  observed.  But  the  tendency  to  stabilize  have  been  different  for  the  experimental 
and  model  predicted  results.  This  is  because  a  drastic  degradation  of  elastic  modulus  has 
been  observed  in  the  experimental  results. 

A  significant  feature  of  this  model  is  the  usage  of  a  non-associative  flow  rule.  In  order 
to  demonstrate  its  significance,  the  model  is  run  with  the  same  loading  situation,  but  with 
u)  =  1.0,  which  results  in  the  usage  of  an  associated  flow  rule.  Figures  4.7  &  4.8  show  the 
comparison  of  model  and  experimental  results  for  this  case.  For  a  pure  associative  flow  rule 
(u)  =  1.0)  it  is  seen  that  plastic  strains  £22  have  been  overpredicted.  A  factor  of  a;  =  0.5 
which  incorporated  non-associativity  into  the  model  has  been  successfully  used  to  predict 
the  plastic  strains  reasonably  in  this  direction. 

Results  are  also  shown  for  one  simulated  loading  situation.  Figure  4.9  shows  the  results 
for  radial  cyclic  loading  in  the  (722  —  <^21  stress  space.  From  these  results  it  is  observed  that 
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Figure  4.5:  Transverse  Stress-Plastic  Strain  Comparison  for  Non-Associative  Flow  Rule 

the  model  is  able  to  predict  different  behavior  in  different  stress  spaces  during  the  loading 
process. 

4.3.7  Comparison  with  Other  Existing  Models 

The  plastic  strains  predicted  by  the  model  presented  here  has  been  compared  with  those 
predicted  by  two  micromechanical  models,  namely  the  Periodic  Hexagonal  Array  (PHA) 
model,  [31],  and  the  self-consistent  scheme,[26]  and  [32]  using  the  Mori-Tanaka  averaging 
scheme  for  the  evaluation  of  the  concentration  factors,  [33].  The  data  for  the  self-consistent 
and  the  PHA  model  have  been  taken  from  the  paper  by  Lagoudas,  [33]. 

Figure  4.6  shows  the  comparison  of  the  shear  stress-plastic  shear  strain  curves  generated 
by  the  above  two  mentioned  models  and  the  presented  model  along  with  those  from  the 
experimental  data.  It  is  seen  that  while  the  Mori-Tanaka  and  the  PHA  model  results  un¬ 
derpredict  the  plastic  strains,  the  presented  model  using  the  non-associative  flow  rule  comes 
closer  in  its  prediction. 

4.4  Damage 

4.4.1  Description  of  Proposed  Damage  Models 

In  this  work  the  metal  matrix  composite  is  assumed  to  consist  of  an  elasto-plastic  matrix 
with  continuous  aligned  uni-directional  elastic  fibers.  The  composite  system  is  restricted 
to  small  deformations  with  small  strains.  Two  different  approaches  to  model  the  damage 
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behavior  are  presented  here  in  this  work. 

In  both  these  approaches  the  effective  configuration  is  defined  as  a  fictitious  state  with 
all  damage  removed,  and  the  damaged  configuration  is  the  actual  state  of  the  material. 

In  the  first  approach  the  MMC  is  modeled  using  a  ‘Continuum  Damage’  model,  wherein 
the  MMC  is  treated  as  a  continuum  .  The  elasto-plastic  behavior  of  the  continuum  is  modeled 
using  the  cyclic  plasticity  model  described  earlier,  applied  to  the  effective  continuum  material 
and  the  damage  transformation  of  this  fictitious  undamaged  continuum  to  the  damaged 
configuration  is  then  obtained  using  the  damage  model.  The  damaged  configuration  is 
termed  as  C  whereas  the  fictitious  undamaged  configuration  is  termed  as  C. 

In  the  second  approach  the  MMC  is  treated  as  a  micromechanical  combination  of  an 
‘in-situ’  plastic  matrix  and  an  elastic  fiber.  It  is  assumed  that  the  in-situ  behavior  of  the 
matrix  material  in  the  presence  of  the  dense  fibers  is  different  from  what  it  would  be  in  the 
absence  of  fibers.  Here  only  the  in  situ  plasticity  behavior  of  the  matrix  is  characterized  by 
the  continuum  cyclic-plasticity-composite  model  shown  earlier.  The  initial  undamaged  and 
undeformed  configuration  of  the  composite  material  is  denoted  by  Co,  and  the  damaged  and 
deformed  configuration  after  the  body  is  subjected  to  a  set  of  external  agencies,  is  denoted  by 
C.  The  fictitious  configuration,  C,  of  the  composite  system  is  obtained  from  C  by  removing 
all  the  damage.  C  is  termed  as  the  effective  configuration  which  is  based  on  the  effective 
stress  concept,  [1].  The  sub  configurations  of  C  of  the  matrix  and  fibers  are  denoted  by  C”* 
and  respectively.  Figure  4.10  shows  the  steps  involved  in  this  development. 

The  equations  of  continuum  damage  mechanics  are  then  applied  to  the  overall  undamaged 
configuration  C  in  order  to  obtain  the  effective  damaged  quantities  in  the  overall  configura¬ 
tion  C. 


The  primary  constitutive  relationship  in  the  effective  configuration  in  incremental  form 
can  be  expressed  as, 

(Tjj  =  Dijki  I  Cki  (4.52) 


4.4.2  Damage  Effect  Tensor 

The  damage  of  the  material  is  quantified  through  the  fourth-order  damage  effect  tensor  M. 
This  tensor  reflects  all  kinds  of  damage  such  as  matrix  cracking  and  fiber  breakage  damage 
between  the  matrix  and  the  fiber.  This  overall  damage  effect  tensor  M  can  be  related  to  the 
local  damage  eflfect  tensors  such  as 

M  =  {c^M^  +  c^M^  :B^)  (4.53) 

where  ilf”*  and  are  the  respective  local  damage  effect  tensors  reflecting  matrix  damage 
and  fiber  damage  [7].  A  linear  transformation  is  assumed  between  the  Cauchy  stress  tensors 
such  that 

a  =  M  :(T  (4.54) 

[3]  has  shown  that  M  can  be  represented  by  a  6x6  matrix  as  a  function  of  a  symmetric 
second  order  tensor  ^  such  that 

[M]  =  mh-<f>)]  (4.55) 

where  I2  is  the  second-rank  identity  tensor.  The  effective  Cauchy  stress  need  not  be  symmet¬ 
ric  or  frame  invariant  under  the  given  transformation.  However,  once  the  effective  Cauchy 
stress  is  symmetrized,  it  can  be  shown  that  it  satisfies  the  frame  invariance  principle  [22]. 
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Figure  4.8:  Transverse  Stress-Plastic  Strain  Comparison  for  Associative  Flow  Rule 


4.4.3  Anisotropic  Damage  Criterion 

The  damage  criterion  g  is  given  in  terms  of  the  tensorial  damage  hardening  parameter  h 
and  the  generalized  thermodynamic  force  Y  conjugate  to  the  damage  tensor  ^  and  a  term  7 
which  is  defined  in  the  thermodynamic  force  space  such  that 


9  =  =  ^  (4.56) 

The  fourth  order  tensor  P  is  expressed  in  terms  of  the  second  order  tensor  h  such  that 


^ijkl  —  ^ 


-U-1 


ij 


(4.57) 


A  new  and  simplified  form  of  the  tensor  h  is  given  in  terms  of  the  second  order  tensor  u,  V 
and  <f>  as  follows 


hij  —  (u,j  Vij ) 


(4.58) 


The  tensors  u  and  V  are  scalar  forms  of  isotropic  materials  originally  proposed  in  [34]  The 
tensors  are  given  by 


(4.59) 
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Figure  4.9:  Stress-plastic  strain  -  Simulated  Radial  stress  loading  in  (T22  —  <^21 
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(4.60) 


The  material  parameters  Ai,A2  and  A3  are  Lame’s  constants  for  anisotropic  materials  and  are 
related  to  the  elasticity  tensor  E  for  an  orthotropic  material  expressed  by  the  6x6  matrix, 
[7].  The  material  parameters  vi,V2  and  U3  define  the  initial  threshold  against  damage  for 
the  orthotropic  material.  These  are  obtained  from  the  constraint  that  the  onset  of  damage 
corresponds  to  the  stress  level  at  which  virgin  material  starts  exhibiting  nonlinearity.  The 
scalar  damage  hardening  parameter  k  is  given  by 

-Y  :  M  (4.61) 


Finally  the  material  parameters  r  and  q  are  obtained  by  comparing  theory  with  experimental 
•  results. 


4.4.4  Evolution  of  7  and  ^ 

A  new  term  7  has  been  introduced  here  in  the  definition  of  the  damage  criterion  g  in  equation 
•  (4.56).  This  term  is  analogous  to  the  backstress  term  in  the  stress-space  yield  criterion. 

It  represents  the  translation  of  the  damage  surface  as  loading  progress  akin  to  kinematic 
hardening. 
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Figure  4.10:  Schematic  Diagram  Depicting  the  Micromechanical  Model 


The  evolution  of  the  term  7  in  the  anisotropic  damage  criterion  equation  is  needed  in 
order  to  account  for  the  motion  of  the  damage  surface  in  the  V  space.  This  is  dependent  on 
the  evolution  of  damage  itself.  Hence  it  can  be  expressed  mathematically  as  follows, 

7  =  c<p  (4.62) 

Since  Y  is  negative  7  too  has  to  be  negative.  It  has  been  found  that  it  is  suitable  to  adopt 
a  value  of  —1  for  the  value  of  c.  The  negative  sign  is  adopted  because  Y  itself  is  a  negative 
quantity  as  defined  in  equation  (4.65) 

The  evolution  of  the  damage  variable  (f)  is  defined  as  follows: 

j  a'  ^9  {  t  ^  o  \ 


<f>ij  =  A2 


(4.63) 


where  g  is  the  function  representing  the  damage  criterion. 

The  generalized  thermodynamic  free  energy  Y  is  a.ssumed  to  be  a  function  of  the  elastic- 
component  of  the  strain  tensor  e  and  the  damage  tensor  or  the  stress  <T  and  <l> 

Y  =  Y{t,<f>)  or  Y  =  Y{a,(f>)  (4.64) 

Making  use  of  the  evolution  equations  for  Y 


= 


i  Cf(Pkl 


(4.65) 


Making  use  of  the  energy  equivalence  principle,  one  obtains  a  relation  between  the  dam¬ 
aged  elasticity  tensor  E  and  the  effective  undamaged  elasticity  tensor  E  such  that  [22] 

~  ^uvmn{,4')^uvpqMpqkl{4')  (4.66) 


87 


4.5  Damage-Plasticity  Constitutive  Model 

The  stiffness  tensor  D  for  the  damaged  material  now  derived  for  isothermal  conditions  and 
in  the  absence  of  rate  dependent  effects.  Making  use  of  the  incremental  form  of  equation 
(4.54)  one  obtains  resulting  elastoplastic  stiffness  relation  in  the  damaged  configuration  is 
obtained  as  follows: 


a  =  D:e  (4.67) 

where 

D  =  O-^  :D  :  M-^  (4.68) 

where  O  is  a  fourth  order  tensor  that  can  be  derived  based  on  the  evolution  equations  for 
damage  and  is  outlined  in  detail  in  [7]  for  the  case  of  uniaxial  loading.  The  effective  stiffness 
tensor  D  maybe  obtained  from  either  a  continuum  approach  or  a  micromechanical  approach. 
These  approaches  are  outlined  below. 

^22  ~  <1^22  Curve 


Cyclic  Loading 


Figure  4.11:  Evolution  of  Damage  Parameter  </>22  with  Transverse  Stress 


4.5.1  Effective  Stiffness  Tensor  D  for  Continuum  Model 


For  the  continuum-damage  model  the  effective  undamaged  elasto-plastic  relationship  is  given 
by  the  stiffness  generated  by  the  cyclic  plasticity  model.  No  modifications  are  made  at  this 
stage.  D  is  the  effective  undamaged  elasto-plastic  stiffness  and  is  given  by, 


n  = 

H  +  {n:E:h) 


(4.69) 


No  other  computations  are  necessary. 


4.5.2  Effective  Stiffness  Tensor  for  Micromechanical  Model 

The  stiffness  tensor  D  for  the  damaged  material  now  derived  for  isothermal  conditions  and 
in  the  absence  of  rate  dependent  effects.  Making  use  of  the  incremental  form  of  equation 
(4.54)  one  obtains 

d  =  M:a  +  M:&  (4.70) 

Through  the  additive  decomposition  of  the  effective  strain  rate  one  obtains 

i  =  M-^  :  e-'  +  M-^  :  e  (4.71) 


Making  use  of  equation  (4.63)  the  rates  of  the  damage  effect  tensor  maybe  expressed  as 
follows 


M. 


ijkl 


and  the  inverse  of  M  is  given  by, 


dMijki 


Q  ijklmn^\ 


Tpqmn^ 


dMZ 


ijkl , 


d(l)pq 
Rijklmn^’i 


pqmn 


(4.72) 

(4.73) 


(4.74) 


The  elasto-plastic  stiffness  matrix  in  the  undamaged  configuration  is  given  by  equation 
(4.52).  Making  use  of  equations  (4.71),  (4.73),  (4.74)  and  (4.52)  the  resulting  elastoplastic 
stiffness  relation  in  the  damaged  configuration  is  obtained  as  follows: 


(7  =  D  :  i 

where  the  damaged  elasto-plastic  stiffness  is  given  by, 

D  =  0-^  :D:  M-^ 


(4.75) 


(4.76) 


and 


Oijkl  —  Qijmnkt^mn  'T  ^ijkl  DijmnRmnpqklEpqab 

In  the  above  equation  D  is  the  effective  undamaged  elasto-plastic  stiffness  of  the  composite 
and  can  be  expressed  as, 


D  =  :  A™  + 


(4.78) 


In  the  case  of  no  damage,  both  tensors  Q  and  R  reduce  to  zero  and  M  becomes  a  fourth 
order  identity  tensor. 


Shear  Stress-Strain  Comparison 

Damage/No  Damage  Cyclic  Loading  Models 


Figure  4.12:  Shear  Stress-Strain  for  Continuum  Damage  and  Pure  Plasticity  Models 


4.5.3  Continuum  Damage  Model  Results 

The  same  loading  that  was  studied  earlier,  and  used  in  the  experimental  work  of  Nigam 
et  al.(1993)  has  been  used  here  in  this  work.  The  damage  parameters  found  suitable  for 
this  material  were  q  =  1.0  and  r  =  7.0.  This  effectively  makes  it  dependent  only  on  one 
parameter.  Figures  4.12,  4.14,  4.13,  4.15  show  the  results  of  this  generation  for  the  stress- 
strain  comparison  in  the  transverse  and  shear  directions.  These  curves  compare  the  cyclic- 
plasticity  model  with  that  of  the  damage-plasticity  model.  It  can  be  seen  that  the  strains 
predicted  by  the  damage  model  are  higher  than  that  of  the  pure  plasticity  case.  It  can  also 
be  seen  that  during  the  unloading-reloading  situation,  when  reloading  takes  place  even  in 
the  elastic  range,  the  damage  criterion  is  exceeded,  and  hence  the  elastic-stiffness  is  reduced. 
This  can  be  clearly  seen  in  the  two  lines  of  different  inclinations  in  Figures  4.13  and  4.15.  As 
seen  in  Figures  4.13  and  4.15  which  depict  the  stress-plastic  strain  relationships  in  the  shear 
and  transverse  directions  respectively,  due  to  successive  reduction  in  the  elastic  stiffness, 
the  plastic  strains  are  also  affected  hence  resulting  in  a  higher  prediction  of  plastic  strain. 
Although  this  model  assumes  a  decoupling  between  damage  and  plasticity  situations  in 
modeling  the  behavior,  there  is  an  inherent  coupling  that  is  present. 

Figure  4.11  shows  the  evolution  of  the  damage  parameter  <j>  with  stress  in  the  transverse 
direction  under  a  cyclic  loading  type  of  situation.  One  apparent  behavior  that  is  observed 
due  to  the  nature  of  these  curves  is  that  as  stress  is  increased,  the  same  stress  increment  tends 
to  produce  a  higher  amount  of  damage.  Upon  unloading  no  significant  change  in  damage 
is  observed,  and  evolution  of  damage  upon  reloading  takes  place  at  a  lower  stress  level  for 
successive  loading  cases.  Another  behavior  observed  is  that  under  constant  load  cycling,  the 
amount  of  damage  per  cycle  is  higher  as  the  number  of  times  the  load  is  applied  increases. 
These  behaviors  observed  are  reasonable  with  what  one  would  expect  in  reality. 

The  micromechanical  model  results  are  being  developed  and  the  results  for  them  are 


02^(  Shear  Stress) 


presented  elsewhere. 


Shear  Stress-Plastic  Strain  Comparison 
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Figure  4.13:  Shear  Stress-Plastic  Strain  for  Continuum  Damage  and  Pure  Plasticity  Models 


Transverse  Stress-Strain  Comparison 


Damaga/No  Damage  Cyclic  Loading  Models 


Figure  4.14:  Transverse  Stress-Strain  for  Continuum  Damage  and  Pure  Plasticity  Models 


Transverse  Stress-Plastic  Strain  Comparison 


Damage/No  Damage  Cyclic  Loading  Models 


Figure  4.15:  Transverse  Stress-Plastic  Strain  for  Continuum  Damage  and  Pure  Plasticity 
Models 
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Appendix 


FORTRAN  CODING  OF  SUBROUTINES 
TO  CALCULATE  DAMAGE  ELASO-PLASTIC 
STIFFNESS  Dijki 


ooo  o  o  ooooooooooo  o  o  oooo 


::=s».======^r  H  A  T  M  0  D  ===============: 


SUBROUTIIE  MATHOD(ELIUM,IITGPI,MATHJH,ICODE,ICRK) 
IMPLICIT  REAL*8  (A-H,0-Z) 

IITEGER  ELIUH 
CHARACTER*!  ICRK 
COMHOI/ IIPUTF/MATYPE  < 1 0 ) 

I=MATYPE(MATIUM) 

IF  (I.EQ.l)  THEI 

CALL  ODCDM(ICODE,ELIUM,IITGPI,ICRK) 

ELSE  IF(I.EQ.2)  THEH 

CALL  LDCDM<ICODE.ELIUM,IITGPI,ICRK) 

ELSE 

WRITE  (IOUT»100)  I 
STOP 
EID  IF 

RETURI 

100  FORMAT  (/lX,aiVALID  MATERIAL  TYPE(’,I3,»)  SPECIFIED^) 
EID 


===========  START  OF  ========= 

===========  elasto-plastic  model  ========= 

===========  WITH  DAMAGE  MECHAIICS  ========= 

===========  for  the  orthotropic  ========= 

===========  coposite  lamiiate  ========= 

===========  USIIG  OVERALL  APPROACH  ========= 


SUBROUTIIE  ODCOMCICODE ,ELIUM  JITGPI , ICRK) 
IITEGER  ELIUM 
CHARACTER*!  ICRK 

IF  (ICODE.EQ.O)  THEH 

CALL  OCALSTF(ELIUM,IITGPH) 

ELSE 

CALL  OSTRDAM (ELIUM, IITGPI, ICRK) 

EID  IF 

RETURI 

EHD 


SUBROUTIIE  OMEDAH 

C  I  I 
CIPROGRAM:  I 
C  I  I 
C  I  PROGRAM  »MEDAM»  IS  THE  COITROL  UIIT  FOR  CALCULATIOI  OF  THE  I 
C  I  ELASTIC  STRESS-STRAII  STIFFIESS  MATRIX  IICLUDIIG  THE  I 
C  I  EFFECT  OF  DAMAGE.  I 
Cl  I 


IMPLICIT  REAL*8  (A-H,0-'Z) 

IITEGER  ELIUM 

CHARACTER*48  CSTRI ,CSTRS ,CASTRS ,CSTRM ,CPHI ,CDPHI ,CCEIT 
CHARACTER*8  CHK,CYY 
CHARACTER*!  CDMG,ICRK 

COMMOI/DEVICE/LDEV! ,LDEV2,LDEV3,LDEV4,LDEV,LDEVST 

COMMOI/LAYTP!/IP,ITP 

C0MM0I/ELSTR2/STRS(6) 

C0MM0I/MATER!/DEP(6 ,6) 

COMMOI/IIPUTl/THICK ,IPLY 
C0MM0I/IIPUT2/MATL(!O) ,DMGPRM(27) 
C0MM0I/IIPUT3/DEGRE(!O) ,PLYTHK(!0) 

COMMOI/COITRl/IICREM ,IIT 
C 

C0MM0I/MEDAM1/ESMB(6,6) ,ESFB(6,6) 

COMMOI /MEDAM2/ECMB (6,6), ECFB (6,6) 
C0MM0I/AFEC0I!/AFE(6,6) 

C0MM0I/AMEC0I!/AME(6 ,6) 

C0MM0I/BFEC0I!/BFE(6 ,6) 

C0MM0H/BMEC0I!/BME(6,6) 

C 
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oooooooooo  ooo  ooo  ooo  o  ooo  a  noo 


C 


c 

c 


DIMEISIOI  STRAlKe)  ,DE(6)  ,TDE(6) 

DIHEISIOI  STRESS(6) ,TSTRS(6) ,DS(6) ,TDS(6) 

DIMEISIOI  AVGSTR(6),BTDS(6) 

DIMEISIOI  STRSM(6) 

DIMEISIOI  DSM(6),DSTRIM(6) 

DIMEISIOI  EPLY(6,6) ,EPLYB(6,6) ,DEPLY(6,6) ,GRS (6 ,6) 
DIMEISIOI  ECB(6,6) ,DPLY(6,6) ,PSMB(6,6) 

DIMEISIOI  DUMMY(6) ,DUHMY1(6) ,DUMMY2(6) 

DIMEISIOI  FS(6) ,CEIT(6) 

DIMEISIOI  PHI (6) ,DPHI(6) »DM(6»6) ,DMP(6,6,6) 

DIMEISIOI  Y(6),HI(6) 

DIMEISIOI  ICRACK(5) 

DIHEISIOI  DDSH(6) ,TSTRSM(6) ,DDS(6) ,TDDS(6) ,DDE(6) ,TDDE(6) 
DIHEISIOI  BTDDS(6)  »DDPHI(6) 

EQUIVALEICE  (CSTRI ,STRAII) , (CASTRS ,AVGSTR) , (CSTRM,STRSM) , 
$(CPHI ,PHI) , (CDPHI ,DPHI) , (CHK ,HK) , (CSTRS , STRESS) , (CYY , YY) 


=:=============:=:====EITRY  OSTRDAM  =========================== 

EHTRY  OSTRDAM (ELHUM,IITGPB, I CRK) 

IF  (IICREM.GT.l)  THEI 
READ(LDEV1,11)  CSTRI 
ELSE 

DO  10  1=1,6 
10  STRAII(I)=O.DO 
EID  IF 

-  CALCULATIOI  OF  THE  STRAII  IICREHEIT  FOR  LAMIIATE 

CALL  CALSTRKDE, STRAII) 

HRITE(LDEV2,11)  CSTRI 

-  GET  THE  MATERIAL  PARAMETERS 

CH0=MATL(1) 

CF0=MATL(2) 

EM=MATL(3) 

EF=HATL(4) 

UM=MATL(5) 

UF=HATL(6) 

GM=EM/(2.DO*(1.DO+UH)) 

GF=EF/ ( 2 . DO* ( 1 , DO+UF) ) 

-  GET  THE  YIELD  PARAMETERS 

SY=MATL(7) 

B=MATL(8) 

-  GET  THE  DAMAGE  PARAMETERS 

R1=DMGPRM(1) 

R2=DMGPRM(2) 

R3=DMGPRM(3) 

Q1=DMGPRH(4) 

Q2=DMGPRM(5) 

Q3=DMGPRM(6) 

V1=DMGPRM(7) 

V2=DMGPRH(8) 

V3=DMGPRH(9) 


I  CALCULATIOI  OF  THE  STRESS  IICREHEIT  k  TOTAL  STRESS  01  EACH  PLY  I 


TYPE  OF  LAMIIATE 

ITP=1  ;  SIIGLE  LAHIIAE 
ITP=2  ;  EVEI  lUMBER  OF  LAHIIAE 
ITP=3  ;  ODD  lUHBER  OF  LAHIIAE 


DO  100  KP=1,IP 
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o  o  o  o  o  o 


c 


IF  (IICREH.GT.l)  THEI 

READ (LDEV 1,22)  CASTRS , CYY , CPHI , CDPHI , CSTRM , CCEIT , CHK , CDMG 
£LSE 

DO  110  1=1,6 

#  AVGSTR(I)=O.DO 

PHI(I)=O.DO 
DPHI(I)=O.DO 
CEIT(I)=O.DO 
110  STRSM(I)=O.DO 
HK=O.DO 
YY=O.DO 
CDHG=>  > 

EID  IF 


120 


DO  120  1=1,6 
TSTRSM(I)=STRSM(I) 


-  GET  THE  FIBER  DIRECTIOI  OF  PLY  AID  THICKIESS 

THETA=DEGRE(KP) 

THKK=PLYTHK(KP) 

SCALE=10.D0 


# 


COMPUTATIOI  A  TRIAL  ELASTIC  STRESS  OF  MATRIX 

CALL  AECOH(CMO,CFO,EM,GM,UM) 

CALL  BECOI(CMO,CFO) 

CALL  PLYSTF ( EPLY , ESMB , ESFB , CMO , CFO ) 

IF  (CDMG.EQ. >Y»)  THEI 
CALL  DMAGE2(DM,DHP,PHI) 

CALL  ELDAMG(DEPLY,DM,EPLY) 

CALL  TRISTF ( DEPLY , THETA ) 

CALL  COIVER(GRS, DEPLY) 

ELSE 

CALL  TRISTF (EPLY, THETA) 

CALL  COHVER(GRS,EPLY) 

EID  IF 

CALL  CALSTRSCDUHHYl ,DUMMY2,DS,GRS,DE) 

CALL  TRISTR(TDS,DS, THETA) 

CALL  TRISTR (DUMMYl , DUMHY2 , THETA ) 

IF  (CDHG.EQ. »Y>)  THEI 
CALL  EFECT3 ( BTDS , TDS , DMP , DM , DPHI , DUMMYl ) 
CALL  LOSTRS(DSH,BME,BTDS) 

ELSE 

CALL  LOSTRS(DSM,BME,TDS) 

EID  IF 

CALL  TRISTI(TDE,DE, THETA) 

CALL  LOSTRS(DSTRHH,AME,TDE) 

CALL  UPDATE(TSTRSM,DSM) 


IF  (CDMG.EQ.’  »)  THE! 


IF  (YY.GT.0.9)  THEI 
CALL  AECOH(CMO,CFO,EM,GM,UM) 

CALL  BECOI(CMO,CFO) 

CALL  ELPLDCPSMB ,ESMB , STRSM ,CEIT , B) 

CALL  APCDI (PSMB , CMO , CFO , EM , EM , GM , GM , UM ) 
CALL  BPCOI(PSMB,CMO,CFO) 

CALL  PLYSTF (EPLY , PSMB ,ESFB , CMO , CFO) 

CALL  TRISTF (EPLY, THETA) 

CALL  COIVER(GRS,EPLY) 

CALL  CALSTRS (DUMMY ,AVGSTR,DS ,GRS ,DE) 

CALL  TRISTR(TDS,DS, THETA) 

CALL  TRISTR(TSTRS,AVGSTR, THETA) 

CALL  LOSTRS(DSM,BME,TDS) 

CALL  UPDATE(STRSM,DSM) 

CALL  GRSSTF (DEP , GRS , ITP , KP , IP , THKK , THICK ) 
ELSE 

CALL  YIELD(FY,TSTRSM,CEIT,SY) 

IF  (FY.LT.0.0)  THEI 
CALL  AECOI(CMO,CFO,EM,GM,UM) 

CALL  BECOI(CMO,CFO) 

CALL  PLYSTF ( EPLY , ESMB , ESFB , CMO , CFO ) 

CALL  TRISTF (EPLY, THETA) 

CALL  COIVER(GRS,EPLY) 

CALL  CALSTRS (DUMMY , AVGSTR , DS , GRS , DE) 
CALL  TRISTR(TDS,DS, THETA) 
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o  o 


# 


CALL  TRISTR(TSTRS,AVGSTR, THETA) 

CALL  LOSTRS(DSH,BHE,TDS) 

CALL  UPDATE (STRSH,DSH) 

CALL  GRSSTF (DEP , GRS ,ITP , KP , IP , THKK , THICK) 
ELSE 
yy=i.DO 

ISBI=IIT(SCALE+0.1) 

DO  125  L=l,6 

125  DDE(L)=DE(L)/SCALE 

CALL  AECai(CMO,CFO,EM,GM,UH) 

CALL  BECOI(CMO,CFO) 

CALL  PLySTF(EPLy,ESHB,ESFB,CHO,CFO) 

CALL  TRISTFCEPLy, THETA) 

CALL  COIVER(GRS,EPLy) 

CALL  CALSTRSCDUHHyi ,AVGSTR,DDS , GRS, DDE) 
CALL  TRISTR(TDDS,DDS, THETA) 

CALL  TRISTR(TSTRS,AVGSTR, THETA) 

CALL  LOSTRS(DDSM,BHE,TDDS) 

CALL  UPDATE(STRSM,DDSH) 

DO  130  I=l,iSBI-l 
IF  (lyy.EQ.lO)  THEM 
Fy=i.o 
ELSE 

CALL  yiELD(Fy,STRSH,CEIT,Sy) 

EID  IF 

IF  (FY.LT.0.0)  THEM 

CALL  AECDI(CHO,CFO,EM,GH,UH) 

CALL  BECOKCMO.CFO) 

CALL  PLYSTF (EPLY ,ESHB , ESFB ,CMO ,CFO) 

CALL  TRISTFCEPLY, THETA) 

CALL  COHVER(GRS,EPLY) 

CALL  C ALSTRSC DUMMY ,AVGSTR,DDS , GRS ,DDE) 
CALL  TRISTR(TDDS,DDS, THETA) 

CALL  TRISTR(TSTRS,AVGSTR, THETA) 

CALL  LOSTRS(DDSM,BME,TDDS) 

CALL  UPDATE(STRSM,DDSH) 

ELSE 

lYY^lO 

CALL  AECOI(CMO,CFO,EM,GM,UM) 

CALL  BECOI(CMO,CFO) 

CALL  ELPLD ( PSMB , ESHB , STRSM , CEIT , B ) 

CALL  APCOI ( PS  MB , CMO , CFO , EM , EM , GM , GM , UM ) 
CALL  BPCOI (PSMB, CMO, CFO) 

CALL  PLYSTFCEPLY , PSMB , ESFB ,CMO ,CFO) 

CALL  TRISTFCEPLY, THETA) 

CALL  COIVER(GRS,EPLY) 

CALL  CALSTRS ( DUMMY 1 ,AVGSTR,DDS , GRS , DDE) 
CALL  TRISTR(TDDS,DDS, THETA) 

CALL  TRISTRCTSTRS,AVGSTR, THETA) 

CALL  LOSTRS(DDSM,BHE,TDDS) 

CALL  UPDATE(STRSM,DDSM) 

EID  IF 

130  COITIIUE 

CALL  GRSSTFCDEP ,GRS ,ITP ,KP , IP , THKK, THICK) 
EID  IF 
EID  IF 

C - 

ELSE 


CALL  DMAGE2(DM,DMP,PHI) 

IF  (YY.GT.0.9)  THEI 

CALL  AECOI(CMO,CFO,EH,GM,UH) 

CALL  BECOI(CHO,CFO) 

CALL  ELPLD (PSMB ,ESMB , STRSM ,CEIT , B) 

CALL  APCOI (PSMB ,CMO ,CFO ,EM ,EM ,GM ,GM ,UM) 
CALL  BPCOI(PSMB,CHO,CFO) 

CALL  PLYSTFCEPLY , PSMB ,ESFB ,CHC>,CFO) 

CALL  ELDAMG(DEPLY,DM,EPLY) 

CALL  DELPLD ( DPLY , DEPLY , ECB , DM , DMP , STTRS ) 
CALL  TRISTFC DPLY, THETA) 

CALL  COIVERCGRS.DPLY) 

CALL  CALSTRS (DUMMY ,AVGSTR,DS ,GRS ,DE) 

CALL  TRISTR(TDS,DS, THETA) 

CALL  TRISTRCTSTRS,AVGSTR, THETA) 

CALL  EFECT3  C  BTDS , TDS , DMP , DM , DPH I , DUMMY 1 ) 
CALL  LOSTRS(DSM,BME,BTDS) 

%  CALL  UPDATE ( STRSM, DSM) 

CALL  GRSSTF ( DEP , GRS , ITP , KP , IP , THKK , THI CK ) 
ELSE 
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o  o  o  o 


# 


# 


CALL  YIELD(FY,TSTRSM,CEIT,SY) 

IF  (FY.LT.0.0)  THEI 
CALL  AECOI<CMO,CFO,EM,GH,UI!) 

CALL  BECOI(CMO,CFO) 

CALL  PLYSTF(EPLY,ESHB,ESFB,CHO,CFO) 

CALL  ELDAMG(DEPLY,DM,EPLY) 

CALL  TRHSTF(DEPLY, THETA) 

CALL  COIVER(GRS,DEPLY) 

CALL  CALSTRS (DUMMY , AVGSTR , DS , GRS , DE ) 

CALL  TRISTR(TDS,DS, THETA) 

CALL  TRISTR(TSTRS, AVGSTR, THETA) 

CALL  EFECT3(BTDS ,TDS,DHP ,DM,DPHI ,DUHMY1) 
CALL  LOSTRS(DSM,BME,BTDS) 

CALL  UPDATE (STRSM,DSM) 

CALL  GRSSTF (DEP , GRS ,ITP . KP , IP . THKK , THICK ) 
ELSE 
YY=1.D0 

ISBI=IIT(SCALE+0.1) 

DO  135  L=l,6 

135  DDE(L)=DE(L)/SCALE 

CALL  AECOI(CMO,CFO,EM,GM,UM) 

CALL  BECOI(CMO,CFO) 

CALL  PLYSTFCEPLY ,ESMB ,ESFB ,CMO ,CFO) 

CALL  ELDAMG(DEPLY,DM,EPLY) 

CALL  TRHSTFCDEPLY, THETA) 

CALL  CQIVER(GRS,DEPLY) 

CALL  CALSTRS (DUMMYl ,AVGSTR,DDS ,GRS ,DDE) 
CALL  TRHSTR(TDDS,DDS, THETA) 

CALL  TRHSTRCTSTRS, AVGSTR, THETA) 

CALL  EFECT3 (BTDDS , TDDS , DMP , DM , DPHI , DUMMY 1 ) 
CALL  LOSTRS(DDSM,BME, BTDDS) 

CALL  UPDATE(STRSM,DDSM) 

DO  140  I==1,ISBI-1 
IF  (lYY.EQ.lO)  THEI 
FY=1.0 
ELSE 

CALL  YIELD(FY,STRSH,CEHT,SY) 

EID  IF 

IF  (FY.LT.0.0)  THE! 

CALL  AECOI(CMO,CFO,EM,GM,UM) 

CALL  BECOI(CMO,CFO) 

CALL  PLYSTFCEPLY ,ESHB ,ESFB ,CMO ,CFO) 

CALL  ELDAMG(DEPLY,DH,EPLY) 

CALL  TRHSTFCDEPLY, THETA) 

CALL  COIVER(GRS,DEPLY) 

CALL  CALSTRS (DUMMY, AVGSTR, DDS , GRS, DDE) 
CALL  TRISTRCTDDS, DDS, THETA) 

CALL  TRHSTRCTSTRS, AVGSTR, THETA) 

CALL  EFECT3 ( BTDDS , TDDS , DMP , DM , DPH I , DUMMY 1 ) 
CALL  LOSTRS(DDSM,BME, BTDDS) 

CALL  UPDATE(STRSM,DDSM) 

ELSE 

IYY=10 

CALL  AECOH(CHO,CFO,EM,GM,UM) 

CALL  BECOBCCMO.CFO) 

CALL  ELPLD ( PS  MB , ESMB , STRSM , CEBT , B ) 

CALL  APCOH ( PS  MB , CMO , CFO , EM , EM , GM , GM , UM ) 
CALL  BPCOH(PSMB,CMO,CFO) 

CALL  PLYSTFCEPLY ,PSMB , ESFB , CMO , CFO) 

CALL  ELDAMG(DEPLY,DH,EPLY) 

CALL  DELPLDCDPLY ,DEPLY ,ECB ,DH ,DMP ,TSTRS) 
CALL  TRISTFCDPLY, THETA) 

CALL  COIVER(GRS,DPLY) 

CALL  CALSTRS (DUMMYl , AVGSTR , DDS , GRS , DDE) 
CALL  TRISTRCTDDS, DDS, THETA) 

CALL  TRHSTRCTSTRS, AVGSTR, THETA) 

CALL  EFECT3 (BTDDS , TDDS , DMP , DM , DPHI , DUMMYl) 
CALL  LOSTRS(DDSM,BME, BTDDS) 

CALL  UPDATE(STRSM,DDSM) 

EID  IF 

140  COITIIUE 

CALL  GRSSTFCDEP ,GRS ,ITP ,KP ,IP , THKK , THICK) 
EID  IF 
EID  IF 

C - 

EID  IF 


UPDATE  BACK-STRESS 


I 
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IF  (YY.GT.0.9)  THEI 

CALL  FDER(FS,STRSH,CEIT) 

CALL  QSCALAR(Q,ESMB,STRSM,CEHT,B) 

CALL  LAMUDA (ALAM , ESMB ,FS ,DSTRIM , Q) 

CALL  USCALAR(UT,STRSM,CEIT,ALAM,B) 

CALL  CEHTER(CEIT,STRSH,UT) 

EID  IF 
C 

C - 

C  I  UPDATE  DMAGE  OS  EACH  PLY  I 

C - 

C 

IF<CDMG.SE.  >FO  THE! 

C 

CALL  DHAGE2(DM,DMP,PHI) 

CALL  DMGFRC(Y,DH,DMP,TSTRS,ECB) 

C 

Ul^EPLYB ( 1 , 1 ) -2 . DO*EPL YB ( 4 , 4 ) 

U2=EPLYB ( 2 , 2 ) -2 . DO*EPLYB (5,5) 

U3=EPL YB ( 3 , 3 ) - 2 . DO*EPL YB (6,6) 

C 

CALL  DMGHAR(HI,A1,A2,A3,B1,B2,B3,PHI,HK,R1,R2,R3,Q1,Q2,Q3 
$,U1,U2,U3,V1,V2,V3) 

C 

CALL  DMGCRT(GCRT,Y,HI) 

C 

IF  (GCRT.GE.l.DO)  THEH 
CDHG=»Y» 

CALL  CALDHG (PHI , DPHI , TSTRS , TDS , ECB , HK , Y , HI , A 1 , A2 , A3 , B1 , B2 , B3 
$,CDMG,1) 

EHD  IF 
EHD  IF 
C 

IF  (CDHG.EQ. >F’)  THEH 
DO  515  J=l,3 
515  PHI(J)=0.90 

ICRACK(KP)=1 

HRITE(6,777)  ELIUM , I STOPS ,KP , THETA 
777  FORMAT ( 2X , ' LAHISA  CRACK  > , 2X , 15 , 2X  ,  12 , 2X  ,  12 ,  2X ,  F4 . 1 ) 

ESD  IF 
C 

WRITE (LDEV2 , 22 )  CASTRS , CYY , CPHI ,CDPHI ,CSTRM , CCEST , CHK , CDMG 
C 

100  COSTISUE 
C 

C - 

C  I  UPDATE  AVERAGE  STRESSES  OF  LAMISATE  I 

C - - 

C 

IF  (ISCREM.GT.l)  THES 
READ(LDEV1,11)  CSTRS 
ELSE 

DO  200  Kl=l,6 
200  STRESS(K1)=0.D0 
ESD  IF 
C 

CALL  CALSTRS (STRS , STRESS , DUMMY ,DEP ,DE) 

C 

HRITE(LDEV2,11)  CSTRS 
C 

CALL  CHKCRK(SP,1CRACK,ICRK) 

C 

IF  (ICRK.Eq. >Y»)  THES 

HRITE(6,878)  ELSUM,ISTGPS 
878  F0RMAT(2X, >LAMISATE  CRACK> ,2X,I5,2X,I2) 

ESD  IF 
C 

RETURS 

C  ==================  estry  OCALSTF  =====================«===:== 

ESTRY  OCALSTF (ELSUM,ISTGPS) 

C 

IF  (ISCREM.GT.l)  THES 
IF  (SIT.EQ.l)  THEH 
READ(LDEV1,11)  CSTRS 
ELSE 

READ(LDEV2,11)  CSTRS 


OO  O  CJ  o  o  ooo  n  OOOOOOOO  O  O  CJ  ooo  ooo 


EID  IF 
EID  IF 

-  GET  THE  MATERIAL  PARAMETERS 

CM0=MATL(1) 

CF0=MATL(2) 

EM=MATL(3) 

EF=MATL(4) 

UM=MATL(5) 

UF=MATL(6) 

GM=EM/(2.D0*(1,D0+UM)) 
GF=EF/ ( 2 . DO* ( 1 . DO+UF ) ) 

-  GET  THE  YIELD  PARAMETERS 

B=90.D0 

-  COMPUTE  ELASTIC  COISTAITS 

CALL  ADMAT(ESMB,EM,UM,GM) 
CALL  ADMAT(ESFB,EF,UF,GF) 


TYPE  OF  LAMINATE 

ITP=1  ;  SINGLE  LAMINAE 
ITP=2  ;  EVEN  NUMBER  OF  LAMINAE 
ITP=3  ;  ODD  HUMBER  OF  LAMINAE 


DO  300  LP=1,NP 

IF  (IHCREM.GT.l)  THEN 
IF  (HIT.EQ.l)  THEN 

READ(LDEV1 ,22)  CASTRS ,CYY,CPHI ,CDPHI ,CSTRM,CCENT,CHK ,CDHG 
ELSE 

READ (LDEV2 , 22 )  CASTRS , CYY , CPH I , CDPH I , CSTRM . CCENT , CHK , CDMG 
END  IF 
ELSE 
CDHG=>  » 

YY=O.DO 
END  IF 

—  GET  THE  FIBER  DIRECTION  OF  PLY  AND  THICKNESS 

THETA=DEGRE(LP) 

THKK=PLYTHK(LP) 

CALL  AECON(CMO,CFO,EH,GM,UM) 


IF  (CDMG.NE. »Y’)  THEN 


IF  (YY.GT.0.9)  THEN 

CALL  ELPLDCPSMB ,ESHB ,STRSM ,CENT ,B) 

CALL  APCON (PSMB , CMO , CFO , EM ,EM , GH , GH ,UM ) 
CALL  PLYSTF ( EPLY , PSMB , ESFB , CMO , CFO ) 

CALL  TRNSTFC EPLY, THETA) 

CALL  CONVER(GRS,EPLY) 

CALL  GRSSTFCDEP ,GRS ,NTP ,LP ,IP ,THKK , THICK) 
ELSE 

CALL  PLYSTF (EPLY , ESHB , ESFB , CMO , CFO ) 

CALL  TRNSTFCEPLY, THETA) 

CALL  CONVER(GRS,EPLY) 

CALL  GRSSTFCDEP ,GRS ,HTP ,LP ,NP ,THKK , THICK) 
EID  IF 


ELSE 


CALL  DMAGE1(DM,PHI) 

IF  (YY.GT.0.9)  THEN 

CALL  ELPLD ( PSMB , ES MB , STRSM , CENT , B ) 

CALL  APCON ( PSMB , CMO , CFO , EM , EM , GM , GH , UM ) 
CALL  PLYSTF ( EPLY , ESHB , ESFB , CMO , CFO ) 

CALL  ELDAMG (DEPLY ,DM . EPLY) 

CALL  TRNSTFC DEPLY, THETA) 

CALL  CONVERCGRS, DEPLY) 

CALL  GRSSTFCDEP ,GRS , NTP ,LP ,NP ,THKK , THICK) 
ELSE 

CALL  PLYSTF (EPLY , ESHB , ESFB , CMO , CFO ) 
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ooo  o  o  ooooaoooooo  o  o  o  oo 


CALL  ELDAMG(DEPLY,DK»EPLY) 

CALL  TRISTFCDEPLY, THETA) 

CALL  COIVER(GRS,DEPLY) 

CALL  GRS  STF ( DEP , GRS , ITP , LP , IP , THKK , TH I CK ) 
EBD  IF 

C - 

EID  IF 


COITIIUE 

IF  (IICREH.GT.l)  THE! 

IF  (IIT.Eq.l)  THEI 
READ(LDEV1,11)  CSTRS 
ELSE 

READ(LDEV2,11)  CSTRS 
EID  IF 

BACKSPACE (UIIT=LDEV ) 
BACKSPACE (UIIT=LDEV) 
BACKSPACE (UIIT=LDEV ) 
BACKSPACE (UIIT=LDEV) 

EID  IF 

RETURI 

11  F0RHAT(A48) 

FORMAT (A48 , A8 , 4A48 , A8 , A1 ) 
EID 


===========  START  OF  ========= 

===========  ELASTO-PLASTIC  MODEL  ========= 

===========  WITH  DAMAGE  MECHAIICS  ========= 

===========  for  the  ORTHOTROPIC  ========= 

===========  COPOSITE  LAMIIATE  ========= 

===========  USIIG  LOCALL  APPROACH  ========= 


SUBROUTIIE  LDCOMCICODE ,ELHUM ,IITGPH , ICRK) 
IITEGER  ELIUH 
CHARACTER*!  ICRK 

IF  (ICODE.EQ.O)  THEI 

CALL  LCALSTF(ELHUM,IHTGPB) 

ELSE 

CALL  LSTRDAM(ELIUM,IITGPI,ICRK) 

EID  IF 

RETURI 

EID 


SUBROUTIIE  LMEDAM 


Cl  I 
CIPROGRAM:  I 
Cl  I 
C  I  PROGRAM  >MEDAM>  IS  THE  COHTROL  UIIT  FOR  CALCULATIOI  OF  THE  I 
C  I  ELASTIC  STRESS-STRAII  STIFFIESS  MATRIX  IICLUDIIG  THE  I 
C  I  EFFECT  OF  DAMAGE.  I 
Cl  I 


IMPLICIT  REAL*8  (A-H,0-Z) 

IITEGER  ELIUM 
CHARACTER*288  CDM 

CHARACTER*48  CSTRI , CSTRS .CAST .CSTM ,CPM ,CPF .CPB.CSTF .CCEIT 
CHARACTER*8  CHKM , CHKF , CHKB , CYY 
CHARACTER*!  CDMG.ICRK 

CDMMOI/DEVICE/LDEVl ,LDEV2 ,LDEV3 ,LDEV4 ,LDEV .LDEVST 
COMMOI/LAYTPl/IP ,ITP 
C0MM0I/ELSTR2/STRS (6) 

COMMOI/MATERl/DEP (6,6) 

COMMOI/IIPUTl/THICK ,IPLY 
COMMOI/ I IPUT2/MATL ( 10 ) , DMGPRM ( 27 ) 

COMHOI/ IIPUT3/DEGRE ( 10 ) , PL YTHK ( 10 ) 

COMMOI/CaiTRi/IICREM ,IIT 
C 

C0HH0H/MEDAM1/ESMB(6,6) ,ESFB(6,6) 


C0HH0I/HEDAH2/ECHB(6 ,6) ,ECFB(6 ,6) 

COMMOI/AFECOIl /AFE (6 , 6 ) 

COHMOI / AHECOIl /AME (6,6) 

COKMOI /BFECOIl /BFE (6,6) 

COMMOH/BHECOIl /BHE (6 , 6 ) 

C 

DIMEISIOI  ESM(6,6) ,ESF(6,6) ,PSMB(6,6) 

DIHEISIOI  EPLYB(6,6) ,EPLY(6,6) ,DEPLY(6,6) ,ECB(6,6) ,GRS(6,6) 
C 

DIHEISIOS  STRAII(6) ,DE(6) ,TDE(6) ,DDE(6) ,TDDE(6) 

C 

DIHEISIOI  STRESS(6) ,TSTRS(6) ,DS(6) ,TDS(6) ,DDS(6) ,TDDS(6) 
DIMEISIOI  AVGSTR(6) 

C 

DIMEISIOI  DUMMY(6) ,DUMHY1(6) ,DUMMY2(6) 

C 

DIMEISIOI  FS(6) ,CEIT(6) 

C 

DIMEISIOI  YM(6) ,YF(6) ,YB(6) ,HMI(6) ,HFI(6) ,HBI(6) 

DIMEISIOI  PHIM(6) ,PHIF(6) ,PHIB(6) 

DIMEISIOI  DM(6,6) ,DMM(6,6) ,DMF(6,6) ,DMB(6,6) 

DIMEISIOI  DHPM(6,6,6),DMPF(6,6,6) ,DMPB(6,6,6) 

C 

DIMEISIOI  STRSM(6) ,STRSF(6) ,DSM(6) ,DSF(6) ,DDSH(6) ,DDSF(6) 
DIMEISIOI  DSTRIM(6) 

DIMEISIOI  BSTRSM(6) ,BDSTRIM(6) 

DIMEISIOI  TSTRSM(6),BTSTRSM(6) 

C 

DIMEISIOI  ICRACK(5) 

C 

EQUIVALEICE  (CSTRH, STRAIN) , (CAST, AVGSTR) , (CSTM,STRSM) , 

$ (CSTF , STRSF) , (CPM ,PHIH) , (CPF ,PHIF) , (CPB ,PHIB) , 

$(CHKH,HKM) , (CHKF,HKF) , (CHKB,HKB) , (CYY,YY) , (CDM,DM) , 

$(CSTRS, STRESS) 

C 

C 

c  :==:==-=:===:===========EITRY  LSTRDAM  ============================= 

C 

EITRY  LSTRDAM (ELIUM,IITGPH,ICRK) 

C 

IF  (IICREM.GT.l)  THEN 
READ(LDEV1,11)  CSTRI 
ELSE 

DO  10  1=1,6 
10  STRAII(I)=O.DO 
EID  IF 
C 

C  -  CALCULATIOI  OF  THE  STRAII  IICREMEIT  FOR  LAMIIATE 

C 

CALL  CALSTRKDE, STRAII) 

C 

WRITE(LDEV2,11)  CSTRI 
C 

C  -  GET  THE  MATERIAL  PARAMETERS 

C 

CM0=MATL(1) 

CF0=MATL(2) 

EM=MATL(3) 

EF=MATL(4) 

UM=HATL(5) 

UF=MATL(6) 

GM=EM/ ( 2 . DO* ( 1 . DO+UM ) ) 

GF=EF/ ( 2 . DO* ( 1 . DO+UF ) ) 

C 

C  -  GET  THE  YIELD  PARAMETERS 

C 

SY=KATL(7) 

B=MATL(8) 

C 

C  -  GET  THE  DAMAGE  PARAMETERS 

C 

RM1=DMGPRH(1) 

RM2=DMGPRM(2) 

RM3=DMGPRM(3) 

QH1=DMGPRM(4) 

QM2=DMGPRM(5) 

QM3=DMGPRM(6) 

VM1=DMGPRH(7) 

VH2=DMGPRM(8) 

VM3=DMGPRH(9) 
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c 

RFl-DHGPRM(lO) 

RF2=DHGPRH(11) 

RF3=DHGPRH(12) 

QF1=DHGPRH(13) 

QF2=DMGPRH(14) 

QF3=DHGPRM(15) 

VF1=DHGPRM(16) 

VF2=DHGPRH(17) 

VF3=DI!GPRII(18) 

C 

RB1=DHGPRH(19) 

RB2=DMGPRH(20) 

RB3=DHGPRH(21) 

QB1=DHGPRM(22) 

QB2=DHGPRM(23) 

QB3=DMGPRM(24) 

VB1=DHGPRH(25) 

VB2=DHGPRH(26) 

VB3=DMGPRH(27) 

C - 

C  I  CALCULATIOI  OF  THE  STRESS  IICREMEIT  ft  TOTAL  STRESS  OM  EACH  PLY  | 

0 - 

C  TYPE  OF  LAHIHATE 
C  ITP=1  ;  SIHGLE  LAHIEAE 

C  ITP=2  ;  EVEH  lUMBER  OF  LAHIHAE 

C  ITP=3  ;  ODD  lUMBER  OF  LAHIIAE 

C - 

c 

DO  100  KP=1,HP 
C 

IF  (IICREH.GT.l)  THEH 

READ (LDEVl ,  22 )  CAST , CYY , CPM , CPF , CPB ,CSTM ,CSTF , CCEHT , CHKH , CHKF 
$  ,CHKB,CDMG,CDM 
ELSE 

DO  110  1=1,6 
AVGSTR(I)=0.D0 
PHIH(I)=0.D0 
PHIF(I)=0.D0 
PHIB(I)=0.D0 
STRSH(I)=0.D0 
STRSF(I)=O.DO 
110  CEIT(I)=O.DO 
HKH=O.DO 
HKF=O.DO 
HKB=O.DO 
YY=O.DO 
CDHG=>  » 

DO  115  1=1,6 
DO  115  J=l,6 
IF  (I.EQ.J)  THEN 
DH(I,J)=1.D0 
ELSE 

DH(I,J)=O.DO 
EID  IF 

115  COITIIUE 
EID  IF 
C 

DO  120  1=1,6 
1 20  TSTRSM ( I ) =STRSH ( I ) 

C 

C  -  GET  THE  FIBER  DIRECTIOI  OF  PLY  AID  THICKIESS 

C 

THETA=DEGRE(KP) 

THKK=PLYTHK(KP) 

SCALE=10,D0 

C 

C  -  COMPUTE  ELASTIC  COISTAITS 

C 

CALL  VOLFRC (CM , CF ,PHIM , PHIF , CMO , CFO) 

CALL  ADMAT(ESMB,EM,UM,GH) 

CALL  ADMAT(ESFB,EF,UF,GF) 

CALL  ASMAT(ECHB,EH,UM) 

CALL  ASHAT(ECFB,EF,UF) 

IF  (CDMG.IE.^YO  THEI 
CALL  AECOI(CHO,CFO,EM,GM,UH) 

CALL  BECOI(CHO,CFO) 

CALL  PLYSTFCEPLYB ,ESMB , ESFB ,CMO ,CFO) 

ELSE 

CALL  AECOI(CM,CF,EM,GM,UM) 


o  o  o  o  o  o 


CALL  BECDI(CM,CF) 

CALL  PLYSTF(EPLYB,ESHB,ESFB,CH,CF) 

EID  IF 

CALL  COHPLI(ECB,EPLYB) 

-  COMPUTATIOI  A  TRIAL  ELASTIC  STRESS  OF  MATRIX 

IF  (CDHG.IE.»  »)  THEN 
CALL  DMAGE1(DHM,PHIM) 

CALL  DMAGEl(DHF.PHIF) 

CALL  DMAGE1(DHB,PHIB) 

CALL  VOLFRC (CM , CF , PHI M , PHIF , CMO , CFO ) 

CALL  AECON(CM,CF,EM,GM,UM) 

CALL  BECOI(CM,CF) 

CALL  ADCOI(DH,DHM,DMF) 

CALL  BDCOI(DM,DMM,DHF) 

CALL  ELDAHG(ESH,DHM,ESHB) 

CALL  ELDAMG(ESF,DMF,ESFB) 

CALL  PLYSTF (EPLY , ESM , ESF , CMO , CFO ) 

CALL  ELDAMG(DEPLY,DMB,EPLY) 

CALL  TR1STF(DEPLY, THETA) 

CALL  COIVER(GRS,DEPLY) 

ELSE 

CALL  AECON(CMO,CFO,EM,GM,UM) 

CALL  BECOH(CMO,CFO) 

CALL  PLYSTF (EPLY , ESMB , ESFB , CMO , CFO ) 

CALL  TRISTF (EPLY, THETA) 

CALL  COIVER(GRS,EPLY) 

END  IF 

CALL  CALSTRS(DUMMY1 ,DUMHY2 ,DS,GRS ,DE) 

CALL  TRNSTR(TDS,DS, THETA) 

CALL  LOSTRS(DSM,BME,TDS) 

CALL  TRNSTN(TDE,DE, THETA) 

CALL  LOSTRS(DSTRHM,AHE,TDE) 

CALL  UPDATE (TSTRSM,DSM) 


IF  (CDMG.EQ.’  ’)  THEN 

C - 

IF  (YY,GT.0.9)  THEN 

CALL  AECON(CMO,CFO,EM,GM,UM) 

CALL  BECON(CMO,CFO) 

CALL  PLYSTF (EPLYB , ESMB , ESFB , CMO , CFO) 

CALL  COMPLKECB, EPLYB) 

CALL  ELPLD(PSHB ,ESMB ,STRSM ,CENT ,B) 

CALL  APCON (PSMB , CMO , CFO , EM , EM , GM , GM ,UM ) 

CALL  BPCON(PSMB,CMO,CFO) 

CALL  PLY STF (EPLY , PSMB , ESFB , CMO , CFO ) 

CALL  TRNSTF( EPLY, THETA) 

CALL  CONVER(GRS,EPLY) 

CALL  CALSTRS (DUMMY ,AVGSTR,DS ,GRS ,DE) 

CALL  TRNSTR(TDS,DS, THETA) 

CALL  TRNSTR(TSTRS,AVGSTR, THETA) 

CALL  LOSTRS(DSM,BME,TDS) 

CALL  LOSTRS(DSF,BFE,TDS) 

CALL  UPDATE (STRSM,DSM) 

CALL  UPDATE ( STRSF , DSF ) 

CALL  GRSSTF(DEP ,GRS ,NTP , KP ,NP ,THKK , THICK) 
ELSE 

CALL  YIELD(FY,TSTRSH,CENT,SY) 

IF  (FY.LT.O.O)  THEN 

CALL  AECON(CMO,CFO,EM,GM,UM) 

CALL  BECON(CHO,CFO) 

CALL  PLYSTF ( EPLYB , ESMB , ESFB , CMO , CFO ) 

CALL  COMPLKECB, EPLYB) 

CALL  PLYSTF (EPLY , ESMB , ESFB , CMO , CFO ) 

CALL  TRNSTF(EPLY, THETA) 

CALL  CONVER(GRS,EPLY) 

CALL  CALSTRS (DUMMY ,AVGSTR,DS ,GRS ,DE) 

CALL  TRNSTR(TDS,DS, THETA) 

CALL  TRNSTR(TSTRS,AVGSTR, THETA) 

CALL  LOSTRS(DSM,BME,TDS) 

CALL  LOSTRS(DSF,BFE,TDS) 

CALL  UPDATE (STRSH,DSM) 

CALL  UPDATE(STRSF,DSF) 

CALL  GRSSTF (DEP , GRS , NTP , KP , NP , THKK , THICK ) 
ELSE 
YY=l.DO 

NSBI=INT(SCALE+0.1) 
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o  a 


125 


130 


C- 


DD  125  L=l,6 

DDE (L)=DE(L) /SCALE 

CALL  AECOI(CHO,CFO,EH,GH,UH) 

CALL  BECOI(CMO,CFO) 

CALL  PLY STF ( EPLYB , ESHB , ESFB , CMO , CFO ) 

CALL  COHPLKECB, EPLYB) 

CALL  PLYSTFCEPLY ,ESMB , ESFB , CMO ,CFO) 

CALL  TRISTF(EPLY, THETA) 

CALL  COIVER(GRS,EPLY) 

GALL  CALSTRS(DUHMY1 ,AVGSTR,DDS ,GRS,DDE) 
CALL  TRISTR(TDDS,DDS, THETA) 

CALL  TRISTR(TSTRS,AVGSTR, THETA) 

CALL  LOSTRS(DDSM,BME,TDDS) 

CALL  LOSTRS(DDSF,BFE,TDDS) 

CALL  UPDATE(STRSK,DDSM) 

CALL  UPDATE (STRSF,DDSF) 

DO  130  I=i,ISBI-l 
IF  (lYY.EQ.lO)  THEN 

FY=1.0 

ELSE 

CALL  YIELD(FY,STRSH,CEIT,SY) 

EID  IF 

IF  (FY.LT.0.0)  THEE 

CALL  AECOE(CMO,CFO,EM,GH,UM) 

CALL  BECOE(CHO,CFO) 

CALL  PLYSTF ( EPLY , ESHB » ESFB , CMO , CFO ) 

CALL  TRBSTF (EPLY, THETA) 

CALL  COB VER(GRS, EPLY) 

CALL  CALSTRS (DUMMY ,AVGSTR,DDS ,GRS ,DDE) 
CALL  TRBSTR(TDDS,DDS, THETA) 

CALL  TRBSTR(TSTRS,AVGSTR, THETA) 

CALL  LOSTRS(DDSM,BME,TDDS) 

CALL  LDSTRS(DDSF,BFE,TDDS) 

CALL  UPDATE (STRSM,DDSM) 

CALL  UPDATE (STRSF,DDSF) 

ELSE 

IYY=10 

CALL  AECOB(CMO,CFO,EM,GH,UM) 

CALL  BECOH(CMO,CFO) 

CALL  ELPLD(PSMB,ESMB,STRSH,CEBT,B) 

CALL  APCOB ( PSHB , CMO , CFO , EH , EM , GH , GM , UM ) 
CALL  BPCOH(PSMB,CHO,CFO) 

CALL  PLYSTF (EPLY , PSHB , ESFB , CMO ,CFO) 

CALL  TRHSTF(EPLY, THETA) 

CALL  COHVER(GRS,EPLY) 

CALL  CALSTRS (DUMMYl , AVGSTR , DDS ,GRS , DDE) 
CALL  TRHSTR(TDDS, DDS, THETA) 

CALL  TRBSTR(TSTRS, AVGSTR, THETA) 

CALL  LOSTRS(DDSH,BHE,TDDS) 

CALL  LOSTRS(DDSF,BFE,TDDS) 

CALL  UPDATE (STRSM,DDSM) 

CALL  UPDATE (STRSF,DDSF) 

EBD  IF 
COBTIBUE 

CALL  GRS  STF ( DEP , GRS , BTP , KP , HP , THKK , THI CK ) 
EID  IF 

EID  IF 

ELSE 


CALL  DHAGE1(DMM,PHIH) 

CALL  DMAGE1(DMF,PHIF) 

CALL  DNAGE1(DHB,PHIB) 

CALL  EFECT1(BSTRSH,DMM,STRSH) 

CALL  EFECT1(BTSTRSM,DHM,TSTRSM) 

IF  (YY.GT.0.9)  THEI 

CALL  VOLFRC (CM , CH? , PHIM , PHIF , CMO , CFO) 
CALL  AECOI(CH,CF,EM,GH,UM) 

CALL  BECOI(CM,CF) 

CALL  PLYSTF (EPLYB , ESHB , ESFB , CM , CF) 
CALL  COMPLKECB, EPLYB) 

CALL  ELPLD ( PSMB , ESHB , BSTRS M , CEHT , B ) 
CALL  APCOB ( PSMB , CM , CF , EM , EM , GH , GM , UM ) 
CALL  BPCOI(PSHB,CH,CF) 

CALL  ADCOI(DM,DHM,DMF) 

CALL  BDCOI(DM,DHM,DMF) 

CALL  ELDAMG(ESM,DMM,PSHB) 

CALL  ELDAHG(ESF,DMF,ESFB) 

CALL  PLYSTF (EPLY ,ESM ,ESF , CMO , CFO) 
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CALL  ELD AMG ( DEPLY , DHB , EPLY ) 

CALL  TRISTF(DEPLY, THETA) 

CALL  COIVERCGRS, DEPLY) 

CALL  CALSTRS (DUMMY ,AVGSTR,DS ,GRS ,DE) 

CALL  TRISTR(TDS,DS, THETA) 

CALL  TRISTR(TSTRS,AVGSTR, THETA) 

CALL  LOSTRS(DSM,BME,TDS) 

CALL  LOSTRS(DSF,BFE,TDS) 

CALL  UPDATE(STRSM,DSH) 

CALL  UPDATE (STRSF,DSF) 

CALL  GRSSTFCDEP ,GRS ,ITP ,KP ,IP ,THKK , THICK) 
ELSE 

CALL  YIELD (FY,BTSTRSH,CEIT,SY) 

IF  (FY.LT.0.0)  THEI 
CALL  VOLFRC (CM , CF , PHIM ,PHIF ,CMO , CFO ) 

CALL  AECOI(CM,CF,EM,GH,UM) 

CALL  BECOI(CM,CF) 

CALL  PLYSTF (EPLYB , ESMB , ESFB ,CM ,CF) 

CALL  COMPLKECB, EPLYB) 

CALL  ADCOI(DM,DMM,DMF) 

CALL  BDCDI(DM,DMM,DMF) 

CALL  ELDAMG(ESM,DMM,ESMB) 

CALL  ELDAMG(ESF,DMF,ESFB) 

CALL  PLYSTF (EPLY ,ESM ,ESF  »CMO , CFO) 

CALL  ELDAMG(DEPLY,DMB,EPLY) 

CALL  TRISTF(DEPLY, THETA) 

CALL  COIVER(GRS, DEPLY) 

CALL  CALSTRS (DUMMY , AVGSTR , DS , GRS , DE ) 

CALL  TRISTR(TDS,DS, THETA) 

CALL  TRISTR(TSTRS, AVGSTR, THETA) 

CALL  LOSTRS(DSM,BME,TDS) 

CALL  LOSTRS(DSF,BFE,TDS) 

CALL  UPDATE(STRSH,DSH) 

CALL  UPDATE(STRSF,DSF) 

CALL  GRSSTF (DEP , GRS , HTP , KP , HP , THKK , THICK ) 
ELSE 
YY=l.DO 

ISBI=IIT(SCALE+0.1) 

DO  135  L=l,6 

135  DDE (L ) =DE (L) /SCALE 

CALL  VOLFRC (CM . CF , PHIM , PHIF , CHO , CFO ) 

CALL  AECOH(CM,CF,EM,GM,UM) 

CALL  BECOI(CM,CF) 

CALL  PLYSTF ( EPLYB , ESMB , ESFB , CM , CF ) 

CALL  COMPLKECB, EPLYB) 

CALL  ADCOH(DM,DHM,DMF) 

CALL  BDCOH(DM,DMM,DMF) 

CALL  ELDAMG(ESM,DMM,ESMB) 

CALL  ELDAMG(ESF,DMF,ESFB) 

CALL  PLYSTF (EPLY ,ESM ,ESF ,CMO , CFO) 

CALL  ELDAMG (DEPLY, DMB, EPLY) 

CALL  TRHSTF (DEPLY, THETA) 

CALL  COIVER( GRS, DEPLY) 

CALL  CALSTRS (DUMMYl .AVGSTR ,DDS , GRS , DDE) 
CALL  TRISTR(TDDS,DDS, THETA) 

CALL  TRHSTR(TSTRS, AVGSTR, THETA) 

CALL  LOSTRS(DDSH,BHE,TDDS) 

CALL  LOSTRS(DDSF,BFE,TDDS) 

CALL  UPDATE(STRSM,DDSM) 

CALL  UPDATE(STRSF,DDSF) 

DO  140  I=1,ISBI-1 
IF  (lYY.EQ.lO)  THEH 
FY=1.0 
ELSE 

CALL  EFECT1(BSTRSM,DMM,STRSM) 

CALL  YIELD(FY,BSTRSM,CEHT,SY) 

EID  IF 

IF  (FY.LT.O.O)  THEI 

CALL  VOLFRC (CM , CF , PHIM , PHIF , CMO , CFO ) 

CALL  AECOI(CH,CF,EH,GM,UM) 

CALL  BECOKCM.CF) 

CALL  ADCOI(DM,DMM,DMF) 

CALL  BDCOH(DM,DMM,DMF) 

CALL  ELDAMG(ESM,DMM,ESMB) 

CALL  ELDAMG(ESF,DMF,ESFB) 

CALL  PLYSTF (EPLY ,ESM , ESF ,CMO , CFO ) 

CALL  ELDAMG (DEPLY , DMB , EPLY ) 

CALL  TRISTF(DEPLY, THETA) 

CALL  COIVER(GRS, DEPLY) 

CALL  CALSTRS (DUMMY .AVGSTR, DDS ,GRS ,DDE) 


109 


OOOOO  O  (-5  o  o  o  o 


CALL  TRISTR(TDDS,DDS, THETA) 

CALL  TRISTR(TSTRS,AVGSTR, THETA) 

CALL  LOSTRS(DDSM,BME,TDDS) 

CALL  LOSTRS(DDSF,BFE,TDDS) 

CALL  UPDATE(STRSH,DDSM) 

CALL  UPDATE(STRSF,DDSF) 

ELSE 

IYY=10 

CALL  VOLFRC (CM , CF , PHIM , PHIF , CMO , CFO ) 

CALL  AECOI(CM,CF,EM,GM,UI1) 

CALL  BECOI(CH,CF) 

CALL  ELPLD ( PSKB , ESHB  >  BSTRSH , CEIT , B ) 

CALL  APCOKPSMB ,CM ,CF.EM ,EH .GH ,GM ,UM) 

CALL  BPCOI(PSMB,CH,CF) 

CALL  ADCOI(DK,DMM,DMF) 

CALL  BDCQI(DH,DMH,DHF) 

CALL  ELDAMG(ESM,DHH,PSHB) 

CALL  ELDAMG(ESF,DMF,ESFB) 

CALL  PLYSTFCEPLY ,ESH ,ESF , CMO , CFO) 

CALL  ELDAHG(DEPLY,DHB,EPLY) 

CALL  TRISTFCDEPLY, THETA) 

CALL  COIVER(GRS,DEPLY) 

CALL  CALSTRSCDUMMYl ,AVGSTR,DDS ,GRS,DDE) 
CALL  TRISTR(TDDS,DDS, THETA) 

CALL  TRISTR(TSTRS,AVGSTR, THETA) 

CALL  LOSTRS(DDSM,BHE,TDDS) 

CALL  LQSTRS(DDSF,BFE,TDDS) 

CALL  UPDATE(STRSH,DDSM) 

CALL  UPDATE (STRSF,DDSF) 

EHD  IF 

140  CGHTIHUE 

CALL  GRS STF ( DEP , GRS , BTP , KP , HP , THKK .THICK) 
EHD  IF 
EHD  IF 

C - 

EHD  IF 


UPDATE  BACK-STRESS 


I 


IF  (YY.GT.0.9)  THEN 
IF  (CDMG.HE. »Y’)  THEH 
CALL  FDER(FS,STRSM,CEHT) 

CALL  QSCALAR ( Q , ESMB , STRSH , CENT , B) 
CALL  LAMUDA ( ALAM , ESHB ,FS ,DSTRHM , Q) 
CALL  USCALAR (UT , STRSM , CEHT , ALAH , B) 
CALL  CEHTER (CEHT, STRSM, UT) 

ELSE 

CALL  EFECT1(BSTRSH,DHM, STRSH) 

CALL  EFECT2 (BDSTRHH , DMM , DSTRHM) 

CALL  FDER(FS,BSTRSM,CEHT) 

CALL  QSCALAR ( Q , ESMB , BSTRSM , CEHT , B) 
CALL  LAMUDA (ALAH , ESMB ,FS , BDSTRHH , Q ) 
CALL  USCALAR (UT , BSTRSM , CEHT , ALAM ,B) 
CALL  CEHTER (CEHT, BSTRSM, UT) 

EHD  IF 
EHD  IF 


I  UPDATE  DMAGE  OH  EACH  PLY 


I 


CALL  DMAGE2(DMM,DMPM,PHIM) 

CALL  DMAGE2(DHF,DHPF,PHIF) 

CALL  DMAGE2(DHB,DMPB,PHIB) 

C 

CALL  DHGFRC ( YH , DMM , DMPH , STRSM , ECMB ) 

CALL  DHGFRC (YF , DHF , DMPF , STRSF , ECFB ) 

CALL  DHGFRC(YB,DHB,DMPB,TSTRS,ECB) 

C 

U1=ESMB ( 1 , 1 ) -2 . D0*ESMB (4,4) 

U2*ESHB ( 2 , 2 ) -2 . DO^ESMB (5,5) 

U3=ESMB (3 , 3 ) -2 . DO*ESMB (6,6) 

C 

CALL  DMGHAR(HHI , AMI ,AM2 ,AM3,BM1 ,BM2 ,BH3 ,PHIH ,HKM ,RM1 ,RH2 ,RM3 
$ , QHl , QH2 , QMS ,Ui , U2 , U3 , VMl , VM2 , VMS ) 

C 

U1=ESFB ( 1 , 1 ) -2 . DO+ESFB (4,4) 


OOOOOO  OOfiO  00C500 


U2=ESFB ( 2 , 2 ) -2 . DO+ESFB (5,5) 

U3=ESFB (3 ,3) -2 . DO^ESFB (6 , 6 ) 

C 

CALL  DMGHAR(HFI , AFl ,AF2 ,AF3 ,BF1 ,BF2 , BF3 ,PHIF ,HKF ,RF1 ,RF2 ,RF3 
$ , QF 1 , QF2 , QF3 ,U1 , U2 , U3 , VFl , VF2 , VF3 ) 

C 

U1=EPLYB ( 1 , 1 >-2 . DO+EPLYB (4 , 4 ) 

U2=EPLYB ( 2 , 2 ) “2 . DO+EPLYB (5,5) 

U3=EPLYB (3 , 3) -2 . DO+EPLYB (6 , 6 ) 

C 

CALL  DMGKAR(HBI , ABl ,AB2 ,AB3,BB1 ,BB2,BB3,PHIB,HKB ,RB1 ,RB2 ,RB3 
$ ,QB1 , QB2 , QB3 ,U1 ,U2 ,U3 , VBl , VB2 , VB3) 

C 

CALL  DMGCRT(GCRTH,YM,HHI) 

CALL  DHGCRT(GCRTF,YF,HFI) 

CALL  DMGCRT(GCRTB,YB,HBI) 

C 

IF  (GCRTM.GE.1.0)  THEH 

CALL  CALDHG (PHIM , DHH , DHPM , STRSH , DSM ,ECMB ,HKH , YH , HMI 
$  ,AH1 , AM2 ,AH3 ,BH1 ,BH2 ,BM3 ,CDHG ,1) 

CDMG=>Y’ 

EID  IF 
C 

IF  (GCRTF.GE.l.O)  THEI 

CALL  CALDHG (PH IF , DHF , DMPF , STRSF , DSF , ECFB , HKF , YF , HFI 
$  , AFl , AF2 , AF3 , BF 1 , BF2 , BF3 , CDMG , 2 ) 

CDMG=’Y» 

EID  IF 
C 

IF  (GCRTB.GE.1.0)  THEH 

CALL  CALDHG (PHIB , DHB , DHPB , TSTRS , TDS , ECB , HKB , YB , HBI 
$  , AB 1 , AB2 , AB3 , BBl , BB2 , BB3 , CDHG , 3 ) 

CDHG=>Y’ 

EID  IF 
C 

IF  (CDHG. IE. *  ’)  THEH 
CALL  DHAGE1(DHH,PHIH) 

CALL  DHAGE1(DHF,PHIF) 

CALL  V0LFRC(CH ,CF ,PHIH ,PHIF ,CHO ,CFO) 

CALL  0 VDHG (DH , DHH , DHF , BHE , BFE , CH , CF ) 

CALL  AECOI(CH,CF,EH,GH,UH) 

CALL  BECOI(CH,CF) 

CALL  BDCOH(DH,DHH,DHF) 

CALL  0 VDHG ( DH , DHH , DHF , BHE , BFE , CH , CF ) 

EID  IF 
C 

WRITE (LDEV2 ,22)  CAST , CYY , CPH ,CPF , CPB , CSTH , CSTF , CCEHT , CHKH , CHKF 
$,CHKB,CDHG,CDH 
C 

100  CDITIIUE 


I  UPDATE  AVERAGE  STRESSES  OF  LAHIHATE 


IF  (IICREH.GT.l)  THEH 
READ(LDEV1,11)  CSTRS 
ELSE 

DO  200  Kl-1,6 
STRESS (K1)=0. DO 
EID  IF 

CALL  CALSTRSCSTRS , STRESS ,DUHHY ,DEP ,DE) 

WEITE(LDEV2,11)  CSTRS 

CALL  CHKCRK(IP,ICRACK,ICRK) 

IF  (ICRK.EQ.’YO  THEI 
HRITE(6,878)  ELIUH,IITGPI 
FORHAT ( 2X , » LAHIHATE  CRACK »,2X,I5,2X,I2) 
EID  IF 

RETURH 


EITRY  LCALSTF  ============================= 


EITRY  LCALSTF (ELHUH,IITGPH) 


oo  o  o  o  oo  ooo  o  oooooooo  ooo  oao  o o o 


IF  (IICREH.GT.l)  THEH 
IF  (IIT.EQ.l)  THEI 
READCLDEVl,!!)  CSTRK 
ELSE 

READ(LDEV2,11)  CSTRH 
EID  IF 
EID  IF 

-  GET  THE  MATERIAL  PARAMETERS 


CM0=O.65DO 

CFO=O.35D0 

EM=80000.DO 

EF=410000.D0 

UM=0.3DO 

UF=0.22D0 

GH=EH/(2.D0*(1.D0+UH)) 
GF=EF/ ( 2 . DO* ( 1 . DO+UF ) ) 

-  GET  THE  YIELD  PARAMETERS 

B=90.D0 

—  COMPUTE  ELASTIC  COISTAHTS 

CALL  ADMAT(ESMB,EM,UM,GM) 
CALL  ADMAT(ESFB,EF,UF,GF) 


TYPE  OF  LAMIHATE 


ITP=1 

ITP=2 

ITP=3 


SIBGLE  LAMIHAE 

EVEH  lUMBER  OF  LAMIIAE 

ODD  HUMBER  OF  LAMIHAE 


D0300LP=1»HP 

IF  (IHCREM.GT.l)  THEH 
IF  (HIT.EQ.l)  THEH 

READ (LDEV 1,22)  CAST , CY Y , CPM , CPF , CPB , CSTM , CSTF , CCEHT , CHKM , CHKF 
$,CHKB,CDMG,CDM 
ELSE 

READ (LDEV2 , 22 )  CAST , CY Y , CPM , CPF , CPB , CSTM , CSTF , CCEHT , CHKM , CHKF 
$,CHKB,CDMG,CDM 
EHD  IF 
ELSE 
CDMG=>  > 

YY-O.DO 
EHD  IF 

—  GET  THE  FIBER  DIRECTIOH  OF  PLY  AHD  THICKHESS 

THETA=DEGRE(LP) 

THKK=PLYTHK(LP) 


IF  (CDMG.HE.’YO  THEH 

IF  (YY.GT.0.9)  THEH 
CALL  AECOH(CHO,CFO,EM,GM,UH) 

CALL  ELPLDCPSMB ,ESHB , STRSM ,CEHT ,B) 

CALL  APCOHCPSHB ,CHO ,CFO ,EM .EM ,GM ,GM ,UM) 
CALL  PLYSTF ( EPLY , PSMB , ES FB , CMO , CFO ) 

CALL  TRHSTF (EPLY , THETA) 

CALL  COHVER(GRS,EPLY) 

CALL  GRSSTFCDEP ,GRS ,HTP ,LP ,HP ,THKK .THICK) 
ELSE 

CALL  AECOH(CMO,CFO.EM,GM,UM) 

CALL  PLYSTF (EPLY .ESMB .ESFB ,CMO .CFO) 

CALL  TRHSTF(EPLY. THETA) 

CALL  COHVER(GRS.EPLY) 

CALL  GRS  STF ( DEP , GRS , ITP , LP . HP , THKK , TH I CK ) 
EHD  IF 
ELSE 


CALL  DMAGEKDMM.PHIM) 
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ooo  ooo  add  o  o  o,  oo 


CALL  DMAGE1(DHF,PHIF) 

CALL  DHAGE1(D!!B,PHIB) 

CALL  EFECT1(BSTRSH,DMM,STRSH) 

IF  (yy.GT.0.9)  THEK 
CALL  VOLFRC (CH , CF » PHIH , PHIF , CMO , CFO) 

CALL  AECOI(CH,CF,EH,GM,UH) 

CALL  ELPLD(PSHB,ESHB,BSTRSM,CEIT,B) 

CALL  APCDI ( PSKB , CM , CF , EH , EH , GM , GM , UH ) 

CALL  ADCOI(DH,DHH,DHF) 

CALL  ELDAHG(ESH,DHH.PSHB) 

CALL  ELDAHG(ESF,DHF,ESFB) 

CALL  PLySTF (EPLy , ESH , ESF ,CHO , CFO) 

CALL  ELDAHG(DEPLy,DHB,EPLy) 

CALL  TRHSTFCDEPLy, THETA) 

CALL  COEVER(GRS,DEPLy) 

CALL  GRSSTF (DEP ,GRS , ITP , LP ,IP ,THKK , THICK ) 
ELSE 

CALL  VOLFRC (CH ,CF , PHIH ,PHIF ,CHO , CFO) 

CALL  AEC05(CH,CF,EH,GH,UH) 

CALL  ADCOI(DH,DHH,DHF) 

CALL  ELDAHG(ESH,DHH,ESHB) 

CALL  ELDAHG(ESF»DHF,ESFB) 

CALL  PLySTF(EPLy,ESH.ESF,CHO,CFO) 

CALL  ELDAHG(DEPLy,DHB,EPLy) 

CALL  TRHSTFCDEPLy, THETA) 

CALL  COHVER(GRS,DEPLy) 

CALL  GRS STF (DEP , GRS , ITP , LP , IP , THKK , TH I CK ) 
EID  IF 

C - 

EID  IF 


CDITIIUE 

IF  (IICREH.GT.l)  THE! 

IF  (IIT.EQ.l)  THEI 
READ(LDEV1,11)  CSTRS 
ELSE 

READ(LDEV2,11)  CSTRS 
EID  IF 

BACKSPACE(UIIT=LDEV) 
BACKSPACE (UBIT=LDEV) 
BACKSPACE(UIIT=LDEV) 

BACKSPACE (UH IT=LDEV ) 

EID  IF 

RETURI 

11  F0RHAT(A48) 

FORHAT ( A48 , A8 , 6A48 , 3A8 , A1 , A288 ) 
EID 


SUBROUTIIE  CALSTRHCDE.STRAII) 

—  CALCULATIOI  OF  THE  STRAII  IICREHEIT 

IRPLICIT  REAL*8  (A~H,0-Z) 
COHHOI/ELSTRl/STRlCe) 

DIHEISIOI  DE(6),STRAII(6) 

DO  10  Kl=l,3 

DECKl )=STRI(K1 )-STRAII(Kl ) 

10  STRAII(K1)=STRI(K1) 

RETURI 

EID 


C  A  L  S  T  R  S  =============-================ 


SUBROUTIIE  CALSTRSCSTRS , STRESS ,DS , DEP, DE) 

C  THIS  SUBPROGRAH  CALCULATES  THE  STRESS  IICREHEIT  AID 
C  THE  TOTAL  STRESS 

IHPLICIT  REAL*8  (A-H.O-Z) 

DIHEISIOI  STRS(6) ,STRESS(6) ,DS(6) ,DEP(6,6) ,DE(6) 
C 

DO  10  Kl=l,3 
CST=0.D0 
DO  15  K2=l,3 

15  CST=CST+DEP(K1 ,K2)*DE(K2) 

10  DS(K1)=CST 


ooo 


DO  20  Kl=l,3 

STRESS (K1 )=STRESS (K1 )+DS (K1 ) 
20  STRS (K 1 ) ^STRESS (K1 ) 

RETURH 

EID 


======  SUBRDUTIIE  UPDATE 


SUBRDUTIIE  UPDATE ( A, B) 
IMPLICIT  REAL*8  (A-H,0-Z) 
DIHEISIOV  A(6),B(6) 

DO  10  1=1,6 
A(I)=A(I)+B(I) 

RETURH 

EID 


=====  SUBRDUTIIE  CHKCRK  ======:== 


SUBROUTIHE  CHKCRK (IP ,ICRACK, ICRK) 

IMPLICIT  REAL*8  (A“H,0-Z) 

DIMEISIOI  ICRACK(5) 

CHARACTER*!  ICRK 

IF((HCRACK(1) ,EQ.l) . AID. (ICRACK(2) .EQ.l))  THEI 
ICRK=’y> 

ELSE 

ICRK=>  » 

EID  IF 
RETURH 
EID 


SUBRDUTIIE  ADMAT(AD,yOUIG,POISS ,AMUE) 
PROGRAM: 

>ADHAT’  CALCULATES  THE  ELASTIC  STIFFHESS  MATRIX. 
ARGUMEHT  LIST: 

youiG  =  youGs  modulus 

PDISS  =  POISSOIS  RATIO 

IMPLICIT  REAL*8  (A-H,0-Z) 

DIMEISIOI  AD(6,6) 

ALAM  =  THE  LAMDA  LAME  COHSTAIT 

AMUE  =  THE  MU  LAME  COHSTAIT  (THE  SHEAR  MODULUS  G) 

ALAH=POISS*yOUHG/(l.DO+POISS)/(l.DO-2.DO*POISS) 

AD( 1 , 1 ) =ALAH+2 . DO*AMUE 

AD(1,2)=ALAH 

AD(1,3)=ALAM 

AD(2,1)=ALAM 

AD ( 2 , 2 ) = ALAH+2 . DO* AMUE 

AD(2,3)=ALAM 

AD(3,1)=ALAM 

AD(3,2)=ALAM 

AD (3 , 3 ) =ALAM+2 . DO*AHUE 

AD(4,4)=AMUE 

AD(5,5)=AHUE 

AD(6,6)=AMUE 

RETURH 

EID 


=======:=====;========:-  A  S  M  A  T  ===:============= 

SUBRDUTIIE  ASMAT(AS,yOUIG,POISS) 

PROGRAM: 

»ADMAT»  CALCULATES  THE  ELASTIC  COMPLIAICE  MATRIX. 
ARGUMEIT  LIST: 
youiG  =  youGS  modulus 
POISS  =  POISSOIS  RATIO 


IMPLICIT  REAL*8  (A-H,0-Z) 
DIMEISIOI  AS(6,6) 
AS(l,l)=l.DO/yOUIG 
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AS(1,2)=-P0ISS/YQUIG 

AS(1,3)=AS(1,2) 

AS<2,1)==AS(1,2) 

AS(2,2)=AS(1,1> 

AS(2,3)=AS(1,2) 

AS(3,1)=AS(1,2) 

AS(3,2)=AS(1,2) 

AS(3,3)=AS(1,1) 

AS (4 , 4 ) = ( 2 . DO* ( 1 . DO+PO I SS ) ) / YOUBG 
AS(5,5)=AS(4,4) 

AS(6,6)=AS(4,4) 

RETURI 

EID 


SUBROUTIIE  COHPLI(ECB,EPLY) 


IPROGRAN:  I 

I  >COMPLI  CALCULATES  THE  ELASTIC  COMPLIAHCE  MATRIX  OF  COMPOSITE  I 


IMPLICIT  REAL*8  (A~H,0-Z) 
DIMEISIOH  ECB(6,6) ,EPLY(6,6) 
DO  10  1=1,6 
DO  10  J=l,6 
ECB(I,J)=EPLY(I,J) 

CALL  AIIHV(ECB) 

RETURB 

EID 


SUBROUTIHE  LOSTRH(TLE, AE,TDE) 
IMPLICIT  REAL*8  (A-H,0-Z) 
DIHEBSIOB  TLE(6),AE(6,6),TDE(6) 
CALL  MULVi(TLE,AE,TDE) 

RETURI 

EID 


L  0  S  T  R  S  *======:========:================= 


SUBROUTIHE  LOSTRS (S , BE , STRESS) 
IMPLICIT  REAL*8  (A-H,0-Z> 
DIMEHSIOH  S(6) ,BE(6,6) ,STRESS(6) 
CALL  MULVKS, BE, STRESS) 

RETURB 

EID 


E  L  D  A  H  G 


SUBROUTIHE  ELDAMG(ED,DM ,E) 

THIS  SUBPROGRAM  CALCULATES  THE  DAMAGED  ELASTIC  STIFFBESS  FDR 
MATRIX  OR  FIBERS 

IMPLICIT  REAL*8  (A-H,0-Z) 

DIMEISIOI  ED(6,6),DM(6,6),E(6,6) 

DIMEHSIOH  DMI(6,6) ,DMIT(6,6) ,DMIE(6,6) 

CALL  DHIIV(DHI,DM) 

CALL  TRAIR(DMIT,DMI) 

CALL  ATIMB(DHIE,DMI,E) 

CALL  ATIMB(ED,DMIE,DHIT) 

RETURB 

EBD 


P  L  Y  S  T  F  ==:====r=:==:==x: 


SUBROUTIIE  PLYSTFCEPLY ,ESM ,ESF ,CM ,CF) 

THIS  SUBPROGRAM  CALCULATES  THE  LAMIBAE  ELASTIC  STIFFBESS 
MATRIX  IB  THE  MATERIAL  DIRECTIOH 

IMPLICIT  REAL*8  (A-H,0~Z) 

COMMOH / AMECOB 1 /AME (6,6) 

CDHM0B/AFEC0I1/AFE(6 ,6) 

DIMEHSIOH  ADEM(6,6) ,ADEF(6,6) ,EPLY(6,6) ,ESM(6,6) ,ESF(6,6) 
CALL  ATIMB(ADEM,ESM,AME) 


n a  a  o  o  o  o  ooo  o  o  o  o  o  oooo  oooo 


CALL  ATIMB(ADEF,ESF,AFE) 

DO  10  1=^1, 6 
DO  10  J=l,6 

1 0  EPLY  ( I ,  J )  CM* ADEH  ( I ,  J )  +CF* ADEF  ( I ,  J ) 

RETUR9 

EID 


G  R  S  S  T  F  ====== 


SUBROUTIIE  GRSSTF (GRS , Q ,ITP , KP , IP , THKK , THICK) 

THIS  SUBPROGRAM  CALCULATES  THE  GROSS  ELASTIC  STIFFIESS 
MATRIX  IICLUDIIG  THE  EFFECT  OF  DAMAGE  FOR  LAMIIATE 

IMPLICIT  REAL*8  (A-H,0-Z) 

DIMEISIOI  GRS(6,6),Q(6,6),A(6,6) 

IF  (ITP.EQ.l)  THE! 

DO  10  1=1,3 
DO  10  J=l,3 
GRS(I,J)=Q(I,J) 

.0  COITINUE 

GO  TO  100 
EID  IF 

IF  (KP.EQ.l)  THEN 
DO  20  1=1,3 
DO  20  J=1.3 
A(I,J)=0.D0 
!0  CONTI lUE 

EID  IF 

DO  30  1=1,3 
DO  30  J=l,3 

IF  ((KP.EQ.IP).AID.(ITP.EQ.3))  THEN 
A(I,J)=A(I,J)+Q(I,J)*THKK/2.D0 
ELSE 

A(I,J)=A(I,J)+Q(I,J)*THKK 
EID  IF 
30  CQITIIUE 

IF  (KP.EQ.NP)  THEN 
DO  40  1=1,3 
DO  40  J=l,3 

GRSd  ,J)=2.D0*A(I,J)/THICK 
40  CONTINUE 
EID  IF 

100  RETURI 
EID 


SUBROUTIIE  TRISTR(TE,E, THETA) 
IMPLICIT  REAL*8  (A-H,0-Z) 
DIMEISIOI  TE(6) ,E(6) 

PI=4 . ODO*DATAI ( 1 . ODO ) 

RADI AI=THETA*PI/180 . ODO 

C=DC0S(2.D0*RADIAN) 

S=DSIN(2.D0*RADIAI) 

EADD=0.5D0*(E(1)+E(2)) 

ESUB=0.5D0*(E(1)-E(2)) 

TE(1 )=EADD+ESUB*C+E(3) ♦S 

TE (2 ) =EADD-ESUB*C-E (3) *S 

TE(4)=-ESUB*S+E(3)*C 

TE(3)=0.D0 

TE(5)=0.D0 

TE(6)=O.DO 

RETURN 

EID 


T  R  I  S  T  N 
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C 


SUBROUTIIE  TRISTI(TE,E, THETA) 
IMPLICIT  REALMS  (A-H,0-Z) 
DINEISIOI  TE(6) ,E(6) 

C 

PI=4 . 0D0*DATAH ( 1 . ODO ) 
RADIAI=THETA ♦PI/180 . ODO 
C=DCOS(2.DO^RADIAJ) 
S=DSII(2.D0^RADIAI) 

C 

T=0.5D0^E(3) 

C 

EADD=0.5D0^(E(1)+E(2)) 

ESUB=0.5D0^(E(1)-E(2)) 

C 

TE ( 1 ) =EADD+ESUB^C+T+ S 

TE ( 2 ) =EADD~ESUB^C-T^S 

TE(4)=-ESUB^S+T^C 

TE(4)=TE(4)+2.D0 

TE(3)=0.D0 

TE(5)=0.D0 

TE(6)=O.DO 

RETURI 

EVD 


SUBRDUTIHE  YI ELD (FY,S. ALPHA, SY) 


I  I 
I  THIS  SUBPROGRAM  CALCULATES  THE  VALUE  OF  THE  YIELD  FUHCTION.  I 
I  THE  PROGRAMED  YIED  FUHCTIOH  IS  AH  EXTEBDE  FORM  OF  THE  I 
I  VOH  MISES  YIELD  CRITERIOB.  THIS  YIELD  FUHCTION  IS  THE  I 
I  EQUIVALAHT  LAGRAHGIAN  FORMULATION  OF  THE  EULERIAH  VON  MISES  I 
I  TYPE  YIELD  CRITERIA.  I 
I  I 
I  THE  YIELD  FUHCTIOH  HAS  THE  FOLLOHIHG  FORM.  I 
I  I 
I  SY  IS  THE  YIELD  STRESS  IN  SIMPLE  TENSION  TEST  I 
I  I 


IMPLICIT  REAL+8  (A“H,0-Z) 
DIMEHSIOH  S(6),ALPHA(6),TAU(6) 
DO  10  1=1,6 
TAU(I)=S(I)~ALPHA(I) 

CALL  SCLVV(FY,TAU,TAU) 

FY=3 .DO^FY/2 .DO-SY+SY 

RETURN 

END 


==  F  D  E  R  ======== 


SUBROUTINE  FDERCFS ,S ,ALPHA) 


I  THIS  PROGRAM  CALCULATES  THE  DERIVATIVE  OF  ‘'F*'  HRT  I 
I  <STRESS>  I 
I  FS  =  DERIVATIVE  OF  F  WRT  <STRESS>  I 


IMPLICIT  REALMS  (A-H,0-Z) 
DIMEHSIOH  FS(6),S(6),ALPHA(6) 
DO  10  1=1,6 

FS(I)=3.D0^(S(I)-ALPHA(I)) 

RETURN 

END 


SUBRDUTIHE  ELPLD(EP ,E,S , ALPHA, B) 

C  ============================================:==============:==:==:== 

C  I  I 

C  I  THIS  PROGRAM  CALCULATES  THE  ELASTOPLASTIC  MATRIX  I 

C  I  THAT  CORRESPONDS  TO  THE  YIELD  FUHCTIOH  F  I 

C  I  I 


IMPLICIT  REALMS  (A-H,0-Z) 

DIMEHSIOH  EP(6,6) ,E(6,6) ,FS(6) ,S(6) ,ALPHA(6) 
DIMEHSIOH  TEMPI (6) ,TEMP2(6) ,P(6,6) 

C 

DO  10  1=1,6 

10  FS(I)=3.D0^(S(I)-ALPHA(I)) 
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CALL  QSCALAR(Q,E,S, ALPHA, B) 
CALL  MULVl (TEMPI, E,FS) 

CALL  HULVVCP, TEMPI, TEMPI) 

C 

DO  20  1=1,6 
DO  20  J=l,6 
20  P(I,J)=P(I,J)/Q 

C 

CALL  SUBMT(EP,E,P) 

C 

RETURN 

EID 


SUBROUTINE  QSCALAR(Q ,E,S , ALPHA ,B) 

IMPLICIT  REAL+8  (A-H,0"Z) 

DIMENSION  FS(6) ,FA(6) ,E(6,6) ,S(6) ,ALPHA(6) ,TAU(6) ,TEMP(6) 
DO  10  1=1,6 

FS(I)=3.D0*(S(I)~ALPHA(I)) 

FA(I)=“FS(I) 

TAU(I)=S(I)-ALPHA(I) 

CALL  MULV2(TEMP,FS,E) 

CALL  SCLVV(Q1,TEMP,FS) 

CALL  SCLVV(Q2,FA,TAU) 

CALL  SCLVV(Q3,FS,FS) 

CALL  SCLVV(Q4,TAU,FS) 

Q=:qi-q2*B*Q3/Q4 

RETURN 

END 


=====  U  S  C  A  L  A  R 


SUBROUTINE  USCALAR(UT , S , ALPHA , ALAM ,B) 
IMPLICIT  REALMS  (A-H,0-Z) 

DIMENSION  FS(6) ,S(6) , ALPHA (6) ,TAU(6) 
DO  10  1=1,6 

FS(I)=3.D0*(S(I)-ALPHA(I)) 

TAU(I)=S(I)-ALPHA(I) 

CALL  SCLVV(UT1,FS,FS) 

CALL  SCLVV(UT2,TAU,FS) 

UT=ALAM*B*UT1/UT2 

RETURN 

END 


SUBROUTINE  LAMUDA ( ALAM , E , FS , DE , q) 
IMPLICIT  REAL*8  (A-H,0-Z) 

DIMENSION  E(6,6) ,FS(6) ,DE(6) ,TEMP(6) 
CALL  MULV2(TEMP,FS,E) 

CALL  SCLVV(ALAM,TEHP,DE) 

ALAM=ALAM/q 

RETURN 

END 


====================  CENTER  =============================== 

SUBROUTINE  CENTER ( ALPHA ,S ,UT) 

IMPLICIT  REAL*8  (A-H,0-Z) 

DIMENSION  ALPHA(6) ,DALPHA(6) ,S(6) ,TEMP(6) 

DO  10  1=1,6 
TEMP(I)=S(I)-ALPHA(I) 

DO  20  1=1,6 
DALPHA(I)=TEMP(I)*UT 
DO  30  1=1,6 

ALPHA ( I ) =ALPHA ( I ) +DALPHA ( I ) 

RETURN 

END 


SUBROUTINE  ELDAMG(ED,DM,E) 

C 

C  THIS  SUBPROGRAM  CALCULATES  THE  DAMAGED  ELASTIC  STIFFNESS  FOR 
C  MATRIX  OR  FIBERS 


oooooo  ooo  ooo  ooo  oao  oooooo 


IMPLICIT  REAL*8  (A“H,0-Z) 

DIMEISIOI  ED(6,6).DM(6,6),E(6,6) 
DIMEISIOI  DHI(6,6) ,DHIT(6,6) ,DHIE(6,6) 
CALL  DMI1V(DNI,DH) 

CALL  TRAIR(DMIT,DMI) 

CALL  ATIHB(DHIE,DNI,E) 

CALL  ATIHB(ED,DMIE,DMIT) 

RETURI 

EID 


E  I  D  A  M  G 


SUBROUTIIE  EIDAHG(EID,DH,EIB) 

THIS  SUBPROGRAM  CALCULATES  THE  DAMAGED  ELASTIC  COMPLIAICE 

IMPLICIT  REAL*8  (A-H,a-Z) 

DIMEISIOI  EID(6,6) ,DM(6 ,6) ,EIB(6,6) 

DIMEISIOI  DMT(6,6) ,DMTE(6,6) 

CALL  TRAIR(DMT,DH) 

CALL  ATIMB(DMTE,DMT,EIB) 

CALL  ATIMB(EID,DMTE,DH) 

RETURI 

BID 


SUBROUTIIE  AECOH(CM,CF,EA,GA,UA) 
IMPLICIT  REALMS  (A-H,0-Z) 

CALL  CKLHP(EA,GA»UA,PK,PM,PP) 
CALL  PCOICEH(PK,PH.PP) 

CALL  TFCOI 

CALL  AMECOI(CM,CF) 

CALL  AFECOI 

RETURI 

EID 


:========:===  C  K  L  H  P  ==========:=========: 


SUBROUTIIE  CKLHPCEA ,GA ,UA ,XK ,XH ,XP) 
IMPLICIT  REAL*8  (A-H,0-Z) 

XK=EA/ (3 . DO* (1 . D0“2 . DO*UA) )+GA/3 . DO 
XM=EA/ ( 2 . DO* ( 1 . DO+UA ) ) 

XP=XH 

RETURI 

EID 


==  PCOICEI  ============================ 


SUBROUTIIE  PCOICEI (PK, PM, PP) 

IMPLICIT  REAL*8  (A-H,0-Z) 
C0HH0I/PC0I1/P(6,6) 

P(2 , 2)=(PK+4 . DO*PM) / (8 . DO*PM* (PK+PM) ) 
P(3,3)=P(2,2) 

P(2 ,3)=-PK/ (8 . DO*PM* (PK+PM) ) 
P(3,2)=P(2,3) 

P (4 , 4) - (PK+2 . DO*PM) / (2 . DO*PM* (PK+PM ) ) 
P(5,5)=1.DO/(2.DO*PP) 

P(6,6)=P(5,5) 

RETURI 

EID 


AFECOI 


SUBROUTIIE  AFECOI 
IMPLICIT  REAL»8  (A-H,0-Z) 
COMMOI/AFECOIl /AFE (6,6) 
C0HM0I/AMEC0I1/AME(6 ,6) 
C0MM0I/TFC0I1/TF(6,6) 

CALL  ATIMB(AFE,TF,AME) 

RETURI 

EID 


A  M  E  C  0  I  =========================== 


SUBROUTIIE  AMECOKCM.CF) 


oooo  o  ooooo  oo  oo  oooo 


IMPLICIT  REAL*8  (A-H,0-Z) 
CDMM0I/AHEC0I1/AME(6 ,6) 
C0HM0I/TFC0I1/TF(6 ,6) 

C 

DO  10  1=1,6 
DO  10  J=l,6 

10  AME(I,J)=CF*TF(I,J) 

C 

AME(1,1)=CM+AHE(1,1) 

AHE(2,2)=CH+AME(2,2) 

AHE(3,3)=CM+AME(3,3) 

AHE(4,4)=CM+AME(4,4) 

AME(5,5)=CM+AME(5,5) 

AME(6,6)=CM+AHE(6,6) 

C 

CALL  AIIIV(AME) 

C 

RETURI 

EID 


T  F  C  0  I 


SUBROUTIIE  TFCOS 

IMPLICIT  REAL+8  (A-H,0-Z) 

C0MM0H/MEDAM1/ESHB(6,6) ,ESFB(6,6) 

COMHOH/TFCON1/TF(6,6) 

C0MM0H/PC0H1/P(6,6) 

CDMM0B/DFES1/DFES(6,6) 

DIMEHSIOB  DFES(6,6) 

DFES(1,1)=ESFB(1,1)-ESHB(1,1) 
DFES(1,2)=ESFB(1,2)-ESMB(1 ,2) 
DFESd  ,3)=ESFB(1 .3)-ESMB(l  ,3) 
DFES(2,1)=DFES(1,2) 
DFES(3,1)=DFES(1,3) 
DFES(2,2)=ESFB(2,2)“ESHB(2,2) 
DFES(2,3)=ESFB(2,3)-ESHB(2,3) 
DFES(3,2)=DFES(2,3) 

DFES ( 3 , 3 ) =ESFB (3 , 3 ) -ESMB ( 3 , 3 ) 
DFES(4,4)=ESFB(4,4)-ESHB(4,4) 
DFES(5,5)=ESFB(5,5)-ESMB(5,5) 
DFES(6,6)=ESFB(6,6)-ESMB(6,6) 

CALL  ATIMB(TF,P,DFES) 

TF(1,1)=1.D0+TF(1,1) 

TF(2,2)=1.D0+TF(2,2) 

TF(3,3)=1.D0+TF(3,3) 

TF(4,4)=l.DO+TF(4,4) 

TF(5,5)=1.D0+TF(5,5) 

TF(6,6)=1.D0+TF(6,6) 

CALL  AIIIV(TF) 

RETURH 

EWD 


====  A  P  C  0  I  ==== 


SUBROUTIIE  APCOI (PSHB , CM , CF , EA , ET , GA . GT , UA ) 
IMPLICIT  REAL*8  (A“H,0“Z) 

DINEISIOI  PSHB(6,6) 

CALL  CKLMP ( E A , ET , G A , GT , UA , PK , PL , PM , PP , PI ) 
CALL  PCOICEI(PK,PM,PP.PI) 

CALL  PTFCOH(PSMB) 

CALL  AMEC0I(CM,CF) 

CALL  AFECOI 

RETURI 

EID 


P  T  F  C  0  I 


SUBROUTIIE  PTFCOB(PSHB) 

IMPLICIT  REAL*8  (A-H,0-Z) 
C0MM0I/MEDAM1/ESHB(6,6) ,ESFB(6,6) 
C0MM0B/TFC0I1/TF(6,6) 
C0MMQI/PC0I1/P(6,6) 


ooo  n  a  no  o  o  o o o o  o  o  oooo 


C  COHMOI/DFESl/DFES (6,6) 

DIHEISIOl  PSHB(6,6) ,DFES(6,6) 
C 

DO  10  1=1,6 
DO  10  J=l,6 

10  DFESCI , J)=ESFB(I , J)“PSHB(I , J) 
C 

CALL  ATIHB(TF,P,DFES) 

C 

TF(1,1)=1.D0+TF(1,1) 

TF(2,2)=1.D0+TF(2,2) 

TF(3,3)=1.D0+TF(3,3) 

TF(4,4)=1.D0+TF(4,4) 

TF(5,5)=1.D0+TF(5,5) 

TF(6,6)=1.D0+TF(6,6) 

C 

CALL  AIIIV(TF) 

C 

RETURI 

EID 


SUBROUTIIE  QCOHCEH 
IMPLICIT  REAL*8  (A-H,0-Z) 
C0MM0S/QC0H1/Q(6,6) 
C0MH0H/PC0H1/P(6,6) 
C0MH0H/HEDAH1/ESHB(6 ,6) ,ESFB(6 ,6) 
DIMEHSIOI  EP(6,6) ,Q1(6,6) 

CALL  ATIHB(EP,ESMB,P) 

CALL  ATIHB(Q1,EP,ESMB) 

CALL  SUBMT(Q,ESHB,Q1) 

RETURF 

EID 


W  F  C  0  F  ========:=:==========: 


SUBROUTIFE  WFCOF 
IMPLICIT  REAL*8  (A-H,0-Z) 
C0HM0F/MEDAM2/ECMB(6,6) ,ECFB(6,6) 
C0HM0B/WFC0F1/WF(6,6) 
C0MM0F/QC0F1/Q(6,6) 

COMHOF /DFEC 1 /DFEC (6,6) 

DIMEFSIOF  DFEC(6,6) 

DFEC (1,1) =ECFB (1,1) ~ECHB (1,1) 
DFEC(1,2)=ECFB(1,2)-ECMB(1,2) 
DFECd  ,3)=ECFB(1 ,3)-ECMB(l  ,3) 
DFEC(2,1)=DFEC(1,2) 
DFEC(3,1)=DFEC(1,3) 

DFEC ( 2 , 2 ) =ECFB (2 , 2 ) -ECMB ( 2 , 2 ) 
DFEC(2,3)=ECFB(2,3)-ECHB(2,3) 
DFEC(3,2)=DFEC(2,3) 

DFEC (3,3) =ECFB (3 , 3 ) -ECMB (3 , 3 ) 

DFEC (4,4) =ECFB (4,4) -ECMB ( 4,4) 
DFEC(5,5)=ECFB(5,5)-ECMB(5,5) 

DFEC ( 6 , 6 ) =ECFB (6 , 6 ) -ECMB (6 , 6 ) 

CALL  ATIMB(«F,Q,DFEC) 

HF(1,1)=1.D0+WF(1,1) 

HF(2,2)=1.D0+WF(2,2) 

WF(3,3)=1.D0+WF(3,3) 

MF(4,4)=1.D0+HF(4,4) 

WF(5,5)=1.D0+WF(5,5) 

WF(6,6)=1.D0+WF(6,6) 

CALL  AIIFV(WF) 

RETURF 

EID 


=========:=:=========:====  B  F  E  C  0  F 


SUBROUTIFE  BFECOF 
IMPLICIT  REALMS  (A-H,0-Z) 
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C 

C 


COHMOI /BFECOIl /BFE (6,6) 
C0HM0I/BMEC0I1/BHE(6 ,6) 
COMMOI/WFCOIl/WF (6,6) 

CALL  ATIMB(BFE,WF,BHE) 

RETURB 

BID 


======  B  H  E  C  0  I 


SUBROUTIIE  BHECOI(CM,CF) 
IMPLICIT  REAL*8  (A“H,0-Z) 
C0MH0I/BMEC0I1/BHE(6 ,6) 
COMHOH/¥FCOI1/WF (6,6) 

DO  10  1=1,6 
DO  10  J=l,6 

10  BME(I,J)=CF*WF(I,J) 

BHE(1,1)=CH+BME(1,1) 

BHE(2,2)=CM+BME(2,2) 

BHE(3,3)=CM+BME(3,3) 

BHE(4,4)=CM+BME(4,4) 

BHE(5,5)=CM+BME(5,5) 

BHE(6,6)=CM+BME(6,6) 

CALL  AIIBV(BHE) 

RETURH 

EHD 


=========================  B  E  C  0  B 


SUBROUTIHE  BECOB(CM,CF) 
IMPLICIT  REAL*8  (A-H,0-Z) 

CALL  QCOHCEH 

CALL  WFCOB 

CALL  BMECOB(CM,CF) 

CALL  BFECOB 

RETURB 

EBD 


SUBROUTIBE  BPCOB(PSMB,CM,CF) 
IMPLICIT  REAL*8  (A“H,0-Z) 
DIMEBSIOH  PSMB(6,6) 

CALL  PQCOBCEH(PSMB) 

CALL  PWFCOB(PSHB) 

CALL  BMECOB(CM,CF) 

CALL  BFECOB 

RETURB 

EBD 


======================  PQCOBCEB  ==:===:====:===: 

SUBROUTIBE  PQCOBCEB (PSHB) 

IMPLICIT  REAL*8  (A-H.O-Z) 

C0MM0B/QC0B1/Q(6,6) 

C0MM0B/PC0B1/P(6,6) 

DIMEBSIOB  PSMB(6,6) 

DIHEBSIOB  EP(6,6),Q1(6,6) 

CALL  ATIMB(EP,PSMB,P) 

CALL  ATIMB(Q1,EP,PSMB) 

CALL  SUBMT(Q,PSMB,Q1) 

RETURB 

EBD 


SUBROUTIBE  PWFCOB(PSMB) 
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IMPLICIT  REAL*8  (A-H,0-Z) 
C0MHDI/MEDAH2/ECMB(6 ,6) ,ECFB(6 ,6) 
COHHOI/WFCOI1/WF(6,6) 
C0MM0I/qC0Il/Q(6,6) 

C  CDHMOH/DFECl /DFEC (6.6) 

DIMEISIOI  DFEC(6,6),PSMB(6.6),PCMB(6,6) 
C 

DO  10  1=1,6 
DO  10  J=l,6 

10  PCMB(I,J)=PSMB(I,J) 

CALL  AIIIV(PCMB) 

C 

DO  20  1=1,6 
DO  20  J=l,6 

20  DFEC(I,J)=ECFB(I,J)-PCMB(I.J) 

C 

CALL  ATIHB(WF,Q,DFEC) 

C 

HF(1,1)=1.D0+WF(1,1) 

WF(2,2)=1.D0+WF(2,2) 

WF(3,3)=l.D0+tfF(3,3) 

WF(4,4)=1.D0+MF(4,4) 

WF(5,5)=1.D0+WF(5,5) 

WF(6,6)=1.D0+WF(6,6) 

C 

CALL  AIIIV(WF) 

C 

RETURH 

EHD 


SUBROUTIHE  ADCOKDM  ,DMM  ,DMF) 
IMPLICIT  REAL*8  (A-H,0-Z) 
C0MM0I/AHEC0N1/AME(6 ,6) 
C0MM0H/AFEC0I1/AFE(6 ,6) 

DIMEISIDS  DM(6,6) ,DMM(6,6) ,DMF(6,6) 
DIMEISIOH  DMI(6,6) 

DIHEISIOH  TEMP1(6,6) ,TEMP2(6,6) 

CALL  DMIIV(DMI,DM) 

CALL  ATIMB(TEMP1,AME,DHI) 

CALL  ATIMB(TEMP2,AFE,DMI) 

CALL  ATIMB(AME,DMM, TEMPI) 

CALL  ATIMB(AFE,DMF,TEMP2) 

RETURN 

END 


SUBROUTINE  BDCON(DM,DMM ,DMF) 
IMPLICIT  REAL*8  (A~H,0-Z) 
C0MH0N/BMEC0N1/BME(6 ,6) 
C0MM0N/BFEC0N1/BFE(6,6) 

DIMENSION  DM(6,6) ,DMM(6,6) ,DMF(6,6) 
DIMENSION  DMMI(6,6) ,DMFI(6,6) 
DIMENSION  TEMP1(6,6) ,TEMP2(6,6) 

CALL  DHINV(DMMI,DMM) 

CALL  DMINV(DMFI,DMF) 

CALL  ATIMB(TEHP1,BME,DM) 

CALL  ATIMB(TEMP2,BFE,DH) 

CALL  ATIMB(BME,DMMI, TEMPI) 

CALL  ATIMB(BFE,DMFI.TEMP2) 

RETURN 

END 


SUBROUTINE  OVDMG (DM , DMM ,DMF , BME ,BFE , CM , CF) 

THIS  SUBPROGRAM  CALCULATES  THE  OVERALL  DAMAGE  EFFECT  TENSOR  M(I,J) 
IMPLICIT  REAL*8  (A-H,0-Z) 

DIMENSION  DM(6,6) ,DMM(6,6) ,DMF(6,6) .BME(6 ,6) ,BFE(6,6) 

DIMENSION  TEMP1(6,6),TEMP2(6,6) 
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CALL  ATIKB(TEMP1,DHI!,BME) 

CALL  ATIMB(TEMP2,DHF,BFE) 

DO  10  1=1,6 
DO  10  J=l,6 

DM ( I , J ) =CM*TEMP1 ( I , J ) +CF*TEMP2 ( I , J ) 

RETURB 

EID 


V  0  L  F  R  C  =====:===:=:r:=r===! 


SUBROUTIIE  VOLFRCCCM ,CF ,PHIM ,PHIF ,CMO ,CFO) 

IMPLICIT  REAL*8  (A-H,0-Z) 

DIMEISIOI  PHIM(6),PHIF(6) 

CM1=(1.D0~PHIM(1) )/((!. D0-PHIM(1))+(1.D0“PHIF(1))*CF0/CM0) 
CF1=(1.D0-PHIF(1) )/((!. D0-PHIM(1))*CM0/CF0+(1.D0-PHIF(1))) 
CM2=(1.D0~PHIM(2) )/((!. D0-PHIM(2))+(1.D0-PHIF(2))*CF0/CM0) 
CF2=(1.DO-PHIF(2))/((1.DO-PHIM(2))*CMO/CFO+(1.DO-PHIF(2))) 
CM3=(1 .D0-PHIM(4) )/( (1 .D0-PHIM(4) )+(l .D0-PHIF(4) )*CFO/CMO) 
CF3=(1.D0-PHIF(4) )/((!. D0-PHIM(4))*CM0/CF0+(1 .D0-PHIF(4) ) ) 

CM=(CM1+CM2+CM3)/3.D0 
CF=(CF1+CF2+CF3) /3 . DO 
RETURI 
EID 


=:========:==========:=:=:x=:  T  R  H  S  T  F  =1================== 

SUBROUTIIE  TRISTFCD, THETA) 

THIS  SUBPROGRAM  CALCULATES  THE  LAMIIAE  ELASTIC  STIFFIESS 
MATRIX  II  THE  LOADIIG  DIRECTIOH 

IMPLICIT  REALMS  (A~H,0-Z) 

DIMEISIOI  D(6,6),TP(6,6) 

DIMEISIOI  T(6,6) ,TT(6,6) 

PI=4.0D0*DATAI(1.0D0) 

RADI AI=THETA»PI/ 180 . ODO 
C=DCOS(RADIAH) 

S=DSII(RADIAH) 

T(1,1)=C*C 

T(1,2)=S*S 

T(1,4)=“2.D0*C*S 

T(2,1)=S*S 

T(2,2)=C*C 

T(2,4)=2,D0*C*S 

T(3,3)=1.D0 

T(4,1)=C*S 

T(4,2)=-C*S 

T(4,4)=C*C-S*S 

T(5,5)=C 

T(5,6)=S 

T(6,5)=-S 

T(6,6)=C 

TT(1,1)=C*C 

TT(1,2)=S*S 

TT(1,4)=C^S 

TT(2,1)=S*S 

TT(2,2)=C*C 

TT(2,4)=-C*S 

TT(3,3)=1.D0 

TT(4,1)=«2.D0*C*S 

TT(4,2)=2.D0*C*S 

TT(4,4)=C*C-S*S 

TT(5.6)=C 

TT(5,6)=-S 

TT(6,5)=S 

TT(6,6)=C 

CALL  ATIMB(TP,T,D) 

CALL  ATIMB(D,TP,TT) 

RETURI 

EID 


E  F  E  C  T  1 
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SUBROUTIIE  EFECT1(SB,DM,S) 


C  I  COMPUTE  EFFECTIVE  STRESS  I 

Cl  I 

IMPLICIT  REALMS  (A-H,0-Z) 

DIMEISIOI  SB(6) ,DM(6,6) »S(6) 

CALL  MULV1(SB,DM,S) 

RETURI 

EID 

SUBROUTIIE  EFECT2(DEB,DM,DE) 

C  I  COMPUTE  EFFECTIVE  STRAII  I 

IMPLICIT  REAL*8  (A-H,0~Z) 

DIMEISIOI  DEB(6) ,DM(6,6) ,DMI(6,6) ,DE(6) 

CALL  DMIIV(DMI,DM) 

CALL  MULV1(DEB.DMI,DE) 

RETURI 

EID 

C  ==================:s=  E  F  E  C  T  3  ============================== 

C  =================x===:===============:==:===============~====:==:=-= 

SUBROUTIIE  EFECT3(BTDS,TDS ,DMP,DM,DPHI ,TSTRS) 

IMPLICIT  REALMS  (A-H,0-Z) 

DIMEISIOI  BTDS(6) »TDS(6) ,DMP(6,6,6) ,DM(6,6) ,DPHI(6) ,TSTRS(6) 
DIMEISIOI  XM(6,6) ,TEMP1(6) ,TEMP2(6) 

DO  10  1=1,6 
DO  10  J=l,6 
XM(I,J)=O.DO 
DO  10  K=1 ,6 

10  XM(I,J)=XM(I,J)+DMP(I,J,K)*DPHI(K) 

CALL  MULVl (TEMPI, XM,TSTRS) 

CALL  MULVl (TEHP2, DM, TDS) 

DO  20  1=1,6 

20  BTDS ( I ) =TEMP1 ( I ) +TEMP2 ( I ) 

RETURI 

EID 

C  ===========================:LL======L=====:======================== 

SUBROUTIIE  DELPLD (DP ,DBAR , El , DM , DMP , S ) 

IMPLICIT  REALMS  (A-H,0-Z) 

DIMEISIOI  DP(6,6) ,DBAR(6,6) , El (6,6) 

DIMEISIOI  DM(6,6) ,DMI(6,6) ,DMP(6,6,6) ,T(6,6) ,S(6) 

DIMEISIOI  TEMP(6,6),X0(6,6) 

C 

CALL  XODMG(XO,DBAR,DM,DHP,T,EI,S) 

CALL  AIIIV(XO) 

CALL  DMIIV(DMI,DM) 

CALL  ATIMB(TEMP,DBAR,DMI) 

CALL  ATIMB(DP,XO,TEMP) 

C 

RETURI 

EID 

C  ===========:===:^=:========:  X  0  D  M  G  ============================ 

C  ============:s========x===:====:=======:=============:========:======= 

SUBROUTIIE  XODMG (XO , DBAR ,  DM ,  DMP , T , El ,  S ) 

IMPLICIT  REALMS  (A-H,0-Z) 

DIMEISIOI  X0(6,6),DBAR(6,6) ,EI (6,6) ,DM(6 ,6) ,DMP(6,6 ,6) ,T(6 ,6) 
DIMEISIOI  S(6) ,XA1(6,6) ,XA2(6,6) ,TEMP(6) 

DIMEISIOI  X(6,6,6),Z(6,6,6) 

C 

CALL  XZDMG(X,Z,T,DM,DMP) 

C 

DO  10  1=1,6 
DO  10  J=l,6 
XO(I,J)=O.DO 
DO  10  K=l,6 

10  XO(I,J)=XO(I,J)+X(I,J,K)*S(K) 

C 

CALL  MULV1(TEMP,EI,S) 

C 

DO  20  1=1,6 
DO  20  J=l,6 
XA1(I,J)=0.D0 
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DO  20  K=l,6 

20  XA1(I,J)=XA1(I,J)+Z(I,J,K)»TEHP(K) 

C 

CALL  ATIMB(XA2,DBAR,XA1) 

CALL  SUBMT(XA1,XA,XA2) 

DO  30  1=1,6 
DO  30  J=l,6 
30  XA1(I,J)=XA1(I,J) 

CALL  ADHTX(X0,XA1,DH) 

CALL  TRAIP(XO) 

C 

RETURH 

EID 

C  =========:====================r==:=:=========================== 

C  ==!====:«==================*=:=================:=:=====—-==== 

SUBROUTIIE  XZDMG(X,Z,T,DM,DHP) 

IMPLICIT  REAL*8  (A-H,0-Z) 

DIMEHSIOI  X<6,6,6) ,Z<6,6,6) ,T(6,6) ,DH(6,6) ,DHP(6,6,6) 

DIMEHSIOI  DMIP(6,6,6) 

C 

DO  10  1=1,6 
DO  10  J=l,6 
DO  10  K=l,6 
X(I,J,K)=O.DO 
DO  10  L=1 ,6 

10  X(I,J,K)=X(I,J,K)+DMP(I,J,L)*T(L,K) 

C  ^ 

CALL  DMIPHI(DMIP,DHP,DM) 

C 

DO  20  1=1,6 
DO  20  J=l,6 
DO  20  K=l,6 
Z(I,J,K)=0.D0 
DO  20  L=l,6 

20  Z(I,J,K)=Z(I,J,K)+DMIP(I,J,L)*T(L,K) 

RETURH 

EHD 

C  =============:====^=:s:==s  D  M  I  P  H  I  ==:=======:=============:==:=:== 

SUBROUTIHE  DMIPHI (DMIP ,DHP ,DM) 

IMPLICIT  REAL*8  (A“H,0-*Z) 

DIMEHSIOI  DMIP(6,6,6),DMP(6,6,6),DM(6,6) ,DMI (6,6) ,TEMP(6 ,6 ,6) 

C 

CALL  DHIHV(DMI,DM) 

C 

DO  10  M=l,6 
DO  10  J=l,6 
DO  10  K=l,6 
TEMP(M,J,K)=O.DO 
DO  10  L=l,6 

10  TEHP(M,J,K)=TEMP(H,J,K)+DMP(M,L,K)*DMI(L,J) 

C 

DO  20  1=1,6 
DO  20  J=l,6 
DO  20  K=l,6 
DMIP(I,J,K)=O.DO 
DO  20  M=l,6 

20  DHIP(I,J,K)=DMIP(I,J,K)+DMI(M,I)*TEMP(M,J,K) 

C 

DO  30  1=1,6 
DO  30  J=l,6 
DO  30  K=l,6 

30  DMIP(I,J,K)=-DMIP(I,J,K) 

C 

RETURH 

EHD 

SUBROUTIIE  ELDAHG(ED,DM,E) 

C 

C  THIS  SUBPROGRAM  CALCULATES  THE  DAMAGED  ELASTIC  STIFFHESS  FOR 
C  MATRIX  OR  FIBERS 
C 

IMPLICIT  REAL*8  (A-H,0-Z) 

DIMEHSIOI  ED(6,6),DM(6,6),E(6,6) 

DIMEHSIOI  DMI(6,6) ,DHIT(6,6) ,DMIE(6,6) 

CALL  DMIHV(DMI,DH) 
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CALL  TRAIR(DMIT,DHI) 

CALL  ATII!B(DHIE,DMI,E) 
CALL  ATIHB(ED,DHIE,DHIT) 
RETURI 
EID 


SU6R0UTIIE  EIDANG(EID,DN,EIB) 

THIS  SUBPROGRAM  CALCULATES  THE  DAMAGED  ELASTIC  COMPLIAICE 

IMPLICIT  REAL*8  (A"H,0-Z) 

DIMEISIOI  EID(6,6) ,DM(6,6) ,EIB(6,6) 

DIMEISIOI  DMT(6,6) ,DMTE(6,6) 

CALL  TRAIR(DMT,DM) 

CALL  ATIMB(DMTE,DMT,EIB) 

CALL  ATIMB(EID,DMTE,DM) 

RETURH 

EID 


SUBROUTIIE  DMGCRT(G,Y,HI) 
IMPLICIT  REAL*8  (A“H,0-Z) 
DIMEISIOI  y(6),HI(6) 

CALL  SCLVV(G,HI,Y) 

G=G*G 

RETURH 

EID 


SUBROUTIIE  GDER(GY ,GP, YP,PHI ,Y ,HI , A1 , A2 , A3  ,B1 ,B2 ,B3) 
IMPLICIT  REAL*8  (A“H,0-Z) 

DIMEISIOI  GY(6) ,GP(6) ,YP(6,6) ,PHI(6) ,Y(6) ,HI(6) 

DIMEISIOI  GH(6) ,HD(6,6) ,GP1(6) ,GP2(6) 

DIMEISIOI  XD(6.6) ,H1D(6) ,H2D(6) ,H3D(6) ,H4D(6) ,H5D(6) ,H6D(6) 
DIMEISIOI  X(6),DDT(6),HH(6,6) 

CALL  SCLVV(A,HI,Y) 

DO  10  1=1,6 
GY(I)=2.D0*A*HI(I) 

10  GH(I)=2.D0>*'A*Y(I) 

C 

H1=(A1*A1*PHI(1)+B1) 

H2=(A2*A2*PHI(2)+B2) 

H3=(A3*A3*PHI(3)+B3) 

H4=(A1»A2*PHI(4)) 

H5=(A2*A3*PHI(5)) 

H6=(A1*A3*PHI(6)) 

C 

H1D(1)=A1*A1+B1 

H2D(2)=A2^A2-B2 

H3D(3)=A3*A3-B3 

H4D(4)=A1*A2+((B1*B2)»*0.5D0) 

H5D ( 5 ) =A2*A3+ ( (B2*B3 ) ♦ *0 . 5D0 ) 

H6D(6)=A1*A3+((B1*B3)**0.5D0) 

C 

DT=H1*H2*H3+2.D0*H4*H5*H6-H1*H5*H5-H2*H6*H6-H3*H4*H4 
DDT(l)=HlD(l)*H2*H3+Hi*H2D(l)*H3+Hl*H2*H3D(l)+ 
$2.D0*(H4D(l)*H5*H6)’(HiD(l)*H5*H5+2.D0*Hl»H5^H5D(l))- 
$ (H2D ( 1 ) *16*16+2 , D0*H2*H6*H6D (1))- 
$ (H3D ( 1 ) *H4*H4+2 , D0*H3*H4*H4D ( 1 ) ) 
DDT(2)=H1D(2)*H2*H3+H1*H2D(2)*H3+H1*H2*H3D(2)+ 
$2.D0*(H4D(2)*H5*H6)-(H1D(2)*H5*H5+2.D0*H1*H5*H5D(2))- 
$ (H2D ( 2 ) *H6*H6+2 . D0*H2*H6*H6D (2 ) ) - 
$ (H3D (2 ) *H4*H4+2 . D0*H3*H4*H4D (2 ) ) 
DDT(3)=H1D(3)*H2*H3+H1*H2D(3)*H3+H1*H2*H3D(3)+ 
$2.D0*(H4D(3)*H5*H6)-(H1D(3)*H5*H5+2.D0*H1*H5*H5D(3))’ 

$ (H2D(3) *H6*H6+2 . D0*H2*H6*H6D(3) )- 
$(H3D(3)*H4*H4+2 . D0*H3*H4*H4D(3) ) 
DDT(4)=H1D(4)*H2*H3+H1*H2D(4)*H3+H1*H2*H3D(4)+ 
$2.D0*(H4D(4)*H5*H6)-(H1D(4)*H5*H5+2.D0*H1*H5*H5D(4))- 
$ (H2D (4 ) *H6*H6+2 . D0*H2*H6*H6D (4 ) ) - 
$ (H3D (4 ) *H4*H4+2 . D0*H3*H4*H4D (4 ) ) 
DDT(5)=H1D(5)*H2*H3+H1*H2D(5)*H3+H1*H2*H3D(5)+ 


o  o  o 


$2.D0*(H4D(5)*H5*H6)-(H1D(5)*H5*H5+2.D0*H1*H5*H5D(5))- 
$ (H2D ( 5 ) ♦H6+H6+2 . D0*H2*H6*H6D (5 ) ) - 
$ (H3D ( 5 ) *H4*H4+2 . D0*H3*H4*H4D (5 ) ) 
DDT(6)=H1D(6)*H2*H3+H1*H2D(6)*H3+H1*H2*H3D(6)+ 
$2.D0*(H4D(6)*H5*H6)-(H1D(6)*H5*H5+2.D0*H1*H5*H5D(6))“ 
$ (H2D (6 ) ♦H6*H6+2 . D0*H2*H6»H6D (6 ) ) - 
$ (H3D (6 ) ♦H4*H4+2 . D0*H3»H4*H4D (6 ) ) 

C 

XD ( 1 , 1 ) =H2D ( 1 ) ♦H3+H  2*H3D ( 1 ) -2 . D0*H5*H5D ( 1 ) 
XD(1.2)=H2D(2)*H3+H2*H3D(2)-2.D0»H5*H5D(2) 

XD<1 ,3)=H2D(3)*H3+H2*H3D(3)-2 . D0*H5*H5D(3) 
XD(1,4)=H2D(4)*H3+H2*H3D(4)-2.D0*H5*H5D(4) 
XD(1,5)=H2D(5)*H3+H2*H3D(5)“2.D0*H5»H5D(5) 
XD(1,6)=H2D(6)*H3+H2*H3D(6)-2.D0*H5*H5D(6) 

XD ( 2 , 1 ) =H 1D( 1 ) ♦H3+H 1 ♦H3D ( 1 ) -2 . D0*H6»H6D ( 1 ) 
XD(2,2)=H1D(2)*H3+H1*H3D(2)-2.D0^H6*H5D(2) 
XD(2,3)=H1D(3)*H3+H1*H3D(3)-2.D0»H6*H5D(3) 
XD(2,4)=H1D(4)»H3+H1*H3D(4)-2.D0*H6*H5D(4) 
XD(2,5)=H1D(5)*H3+H1»H3D(5)-2.D0*H6*H5D(5) 

XD(2 ,6)=HlD(6)*H3+Hl*H3D(6)-2 . D0*H6*H5D(6) 
XD<3,l)=HlD(l)*H2+Hl*H2D(i)-2.D0*H4*H6D(l) 
XD(3,2)=H1D(2)»H2+H1*H2D(2)-2.D0*H4*H5D(2) 
XD(3,3)=H1D(3)*H2+H1*H2D(3)-2.D0*H4*H5D(3) 
XD(3,4)=H1D(4)»H2+H1»H2D(4)“2.D0*H4*H5D(4) 
XD(3,5)=H1D(5)*H2+H1*H2D(5)-2.D0*H4*H5D(5) 
XD(3,6)=H1D(6)*H2+H1*H2D(6)-2.D0*H4*H5D(6) 

XD ( 4 , 1 >  =H5D ( 1 ) ♦H6+H5*H6D ( 1 ) ~H3D (1 ) ♦H4-H3*H4D ( 1 ) 
XD(4.2)=H5D(2)*H6+H5*H6D(2)-H3D(2)»H4-H3*H4D(2) 
XD(4,3)=H5D(3)+H6+H5*H6D(3)-H3D(3)*H4-H3*H4D(3) 
XD(4,4)=H5D(4)*H6+H5»H6D(4)-H3D(4)*H4-H3*H4D(4) 

XD ( 4 , 5 ) =H5D ( 5 ) ♦H6+H5 ♦HeD ( 5 ) -H3D ( 5 ) ♦H4-H3*H4D ( 5 ) 
XD(4,6)=H5D(6)*H6+H5*H6D(6)-H3D(6)*H4-H3>»'H4D(6) 

XD ( 5 , 1 ) =H4D ( 1 ) ♦H6+H4*H6D ( 1 ) -HI D ( 1 ) ♦H5-H 1 ♦H5D ( 1 ) 

XD ( 5 , 2 ) -H4D ( 2 ) ♦H6+H4*H6D ( 2 ) -HI D ( 2 ) *H  5 -H 1 *H5D ( 2 ) 
XD(5,3)=H4D(3)*H6+H4*H6D(3)-H1D(3)*H5-H1*H5D(3) 
XD(5,4)=H4D(4)*H6+H4*H6D(4)-H1D(4)*H5-H1*H5D(4) 
XD(5,5)=H4D(5)*H6+H4*H6D(5)-H1D(5)*H5-H1*H5D(5) 
XD(5,6)=H4D(6)*H6+H4*H6D(6)-H1D(6)*H5-H1*H5D(6) 
XD(6,1)=H4D(1)*H5+H4*H5D(1)-H2D(1)*H6-H2*H6D(1) 
XD(6,2)=H4D(2)*H5+H4*H5D(2)-H2D(2)*H6-H2*H6D(2) 
XD(6,3)=H4D(3)*H5+H4*H5D(3)-H2D(3)*H6-H2*H6D(3) 
XD(6,4)=H4D(4)*H5+H4*H5D(4)“H2D(4)*H6~H2+H6D(4) 
XD(6,5)=H4D(5)*H5+H4*H5D(5)-H2D(5)*H6-H2^H6D(5) 
XD(6,6)=H4D(6)*H5+H4*H5D(6)-H2D(6)*H6-H2*H6D(6) 

C 

X(1)=H2*H3-H5*H5 

X(2)=H1*H3-H6*H6 

X(3)=H1*H2-H4*H4 

X(4)=H5*H6-H3*H4 

X(5)=H4*H6-H1*H5 

X(6)=H4*H5-H2*H6 

C 

DO  20  1=1,6 
DO  20  J=l,6 

20  HD(I,J)=(XD(I,J)*DT-X(I)*DDT(J))/(DT*DT) 

C 

CALL  HULV1(GP1,HD,GH) 

CALL  !!ULV1(GP2,YP,GY) 

DO  30  1=1,6 

30  GP(I)=(GP1(I)+GP2(I)) 

C 

RETURH 

EID 


SUBROUTIIE  YDER(YSIG , YPHI ,PHI , DM , DMP , S , El ) 

IMPLICIT  REALMS  (A-H,0-Z) 

DIMEISIOI  YSIG(6,6) ,YPHI(6,6) ,PHI(6) ,DM(6,6) ,DMP(6,6,6) 
DIMEISIOI  S(6) ,EI(6,6) ,DMT(6,6) 

DIMEBSIDI  YS1(6) ,YS2(6) ,YS3(6) ,YS4(6) 

DIMEISIOI  X(6,6),XT(6,6),TEHP(6) 

DIMEISIOI  DMP2(6,6,6,6),X1(6,6) ,YP1(6.6)  ,YP2(6,6) 
DIMEISIOI  Tl(6,6) ,TT1(6,6) ,T2(6,6) ,TT2(6,6) 

C 

CALL  ATIMB(T1,EI,DM) 

CALL  TRAIR(TT1,T1) 

CALL  TRAIR(DHT,DM) 

CALL  ATIMB(T2,DMT,EI) 

CALL  TRAIR(TT2,T2) 


c 

DO  10  IJ=1,6 
C 

DO  15  1=1,6 
DO  15  J=l,6 

15  X(I,J)=DHP(I,J,IJ) 

CALL  TRAIR(XT,X) 

C 

CALL  MULV1(TEHP,T1,S) 

CALL  mJLVl(YSl,XT,TEMP) 

C 

CALL  PfULVl(TEHP,X,S) 

CALL  MULV1(YS2,TT1,TEHP) 

C 

CALL  MULV1(TEHP,X,S) 

CALL  KULV1(YS3,T2,TEMP) 

C 

CALL  mJLVl(TEMP,TT2,S) 

CALL  HULV1(YS4,XT,TEHP) 

C 

DO  20  K=l,6 

20  YSIG(K,IJ)=0.5D0*(YS1(K)+YS2(K)+YS3(K)+YS4(K)) 

C 

10  COHTIIUE 
C 

CALL  HDPH2(DHP2,PHI) 

C 

DO  40  1=1,6 
DO  50  J=l,6 
C 

DO  60  K=l,6 
DO  60  L=l,6 

60  X(K,L)=DHP2(K,L,I,J) 

C 

CALL  MULV1(YS1,X,S) 

CALL  HULV1(YS2,YS1,EI) 

CALL  HULV1(YS1,DM,S) 

CALL  SCLVV(A1,YS2,YS1) 

C 

CALL  HULV1(YS1,DM,S) 

CALL  MULV1(YS2,YS1,EI) 

CALL  HULV1(YS3,X,S) 

CALL  SCLVV(B1,YS2,YS3) 

C 

YP1(I,J)=0.5D0*(A1+B1) 

50  COHTIHUE 
40  COHTIHUE 
C 

DO  70  1=1,6 
C 

DO  75  Kl=l,6 
DO  75  Ll=l,6 

75  X(K1,L1)=DHP(K1,L1,I) 

C 

DO  80  J=l,6 
C 

DO  85  K2=l,6 
DO  85  L2=l,6 

85  XI (K2 ,L2)=DMP(K2 ,L2 , J) 

C 

CALL  MULV1(YS1,X,S) 

CALL  MULV1(YS2,X1,S) 

CALL  HULV1(YS3,EI,YS2) 

CALL  SCLVV(A2,YS1,YS3) 

C 

CALL  mJLVl(YSl,Xl,S) 

CALL  MULV1(YS2,YS1,EI) 

CALL  MULV1(YS3,X,S) 

CALL  SCLVV(B2,YS2,YS3) 

C 

YP2(I,J)=0.5D0*(A2+B2) 

80  COHTIHUE 
70  COHTIHUE 
C 

CALL  ADHTX(YPHI,YP1,YP2) 

C 

RETURH 

EHD 
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SUBROUTIIE  DHGHAR(HI,A1,A2,A3,B1,B2,B3,PHI,HK»R1,R2,R3,Q1,Q2,Q3 
$.U1,U2,U3,V1,V2,V3) 

IHPLICIT  REAL*8  (A-H,0-Z) 

DIHEISIOI  HI (6), PHI (6) 

C 

A1=DSQRT(U1*Q1*( (HK/Ul) ♦♦Rl) ) 

A2=DSQRT (U2*Q2* ( (HK/U2 ) ♦♦RZ ) ) 

A3=DSQRT(U3*Q3*((HK/U3)**R3) ) 

C 

Bl=m*Vl*Vl 

B2=U2*V2*V2 

B3=U3*V3*V3 

C 

H1=(A1*A1*PHI(1)+B1) 

H2=(A2*A2*PHI(2)+B2) 

H3=(A3*A3>i<PHI(3)+B3) 

H4=(A1*A2*PHI(4)) 

H5=<A2*A3*PHI(5)) 

H6=(A1*A3*PHI(6)) 

C 

DT=Hl»H2*H3+2 . D0*H4*H5^H6-H1*H5^H5-H2*H6*H6-H3*H4*H4 

HI(1)=(H2*H3-H5*H5)/DT 

HI(2)=(H1*H3“H6*H6)/DT 

HI(3)=(H1*H2-H4*H4)/DT 

HI (4 )= (H5*H6-H3*H4) /DT 

HI(5)=(H4*H6-H1*H5)/DT 

HI(6)=(H4*H5-H2*H6)/DT 

RETURI 

EID 

C  ======“==========:================:=======:=~==™==~^===_===__^^ 

c  =====;===x:s===========:~==  D  M  G  F  R  C  ===================:=======—— 

SUBROUTIHE  DHGFRC(Y,DH,DMP,S,EI) 

IHPLICIT  REAL*8  (A~H,0-Z) 

DIHEISIOH  Y(6) ,DH(6,6) ,DHP(6 ,6 ,6) , S(6) ,EI(6,6) 

DIMEISIOH  X(6,6) , TEMPI (6) ,TEHP2(6) 

DO  10  K=l,6 
DO  20  1=1,6 
DO  20  J=l,6 
20  X(I,J)=DMP(I,J,K) 

CALL  inJLVl(TEMPl,DM,S) 

CALL  HULVl (TEMP2 , El , TEMPI ) 

CALL  MULVl (TEMPI, X,S) 

CALL  SCLVVCA, TEMPI, TEMP2) 

CALL  MULVl (TEMPI, X,S) 

CALL  MULVl (TEMP2, El, TEMPI) 

CALL  HULVl (TEMPI , DM , S) 

CALL  SCLVV(B, TEMPI, TEMP2) 

Y(K)=0.5D0*(A+B) 

10  CDITIIUE 
RETURI 
EID 


D  M  G  H  K  ==========; 


SUBROUTIIE  DMGHK(HK,Y,DPHI) 
IHPLICIT  REAL*8  (A-H,0-Z) 
DIMEISIOI  Y(6),DPHI(6) 

CALL  SCLVV(DHK,Y,DPHI) 

HK=HK+DHK 

RETURI 

EID 


C  A  L  D  H  G 


SUBROUTIIE  CALDMG (PHI , DM , XMP , S , DS , El , HK , Y , HI , A1 , A2 , A3 
$.B1,B2,B3,CFAIL) 

THIS  SUBROUTIIE  CALCULATES  THE  DAMAGE  VARIABLES 

IHPLICIT  REALMS  (A-H,0-Z) 

CHARACTER*!  CFAIL 

DIMEISIOI  PHI(6) ,D(6,6) ,DH(6,6) ,XMP(6,6,6) 

DIMEISIOI  S(6) ,DS(6) ,EI(6,6) ,Y(6) ,HI(6) 

DIMEISIOI  GY(6) ,GP(6) 

DIMEISIOI  A(6,6) ,B(6,6) ,C(6,6) ,AC(6,6) ,TEHP(6 ,6) 

CALL  YDER(B,C,PHI,DH,XMP,S,EI) 

CALL  GDER(GY,GP,C,PHI,Y,HI,A1,A2,A3,B1,B2,B3) 
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CALL  SCLVV(GPY,GP,GY) 
DO  20  1=1,6 
DO  20  J=l,6 

20  A(I , J)=GY(I)*GY(J)/GPY 
CALL  ATIHB(AC,A,C) 

DO  30  1=1,6 
DO  30  J=l,6 
IF  (I.EQ.J)  THEI 
D(I,J)=1.D0-AC(I,J) 

FT  QF 

D(I,J)=-AC(I,J) 

EID  IF 

30  COITIIUE 

CALL  AIIIV(D) 

CALL  ATIMB(TEHP,D,A) 
CALL  ATIMB(D,TEMP,B) 
CALL  TRAIP(D) 

CALL  HULV1(DPHI,D,DS) 
DO  40  1=1,6 

40  PHI ( I ) =PHI (I )+DPHI ( I ) 

C 

CALL  DHGHK(HK,Y,DPHI) 
CALL  RUPTR(PHI,CFAIL) 
RETURH 
EID 


— —  R  U  P  T  R 


SUBRDUTIIE  RUPTR(PHI,IRUP) 

IHPLICIT  REAL*8  (A-H,0-Z) 

CHARACTER*!  IRUP 
DIMEISION  PHI (6) 

PHIHAX1=0 . 5D0* (PHI ( 1 )+PHI (2) ) 

PHIHAX2=PHI(1)-PHI(2) 

PHIMAX3=PHI (4) *PHI (4) 

PHIHAX=PHIHAX1+(PHIMAX2*PHIHAX2*0 . 25D0+PHIHAX3) **0 . 5D0 

IF(PHIMAX.GT.0.99)  THES 
PHI(1)=0.9 
PHI(2)=0.9 
PHI(3)=0.9 
PHI(4)=0.9 
PHI(5)=0.9 
PHI(6)=0.9 
EHD  IF 

RETURH 

EID 


T  R  A  I  R 


SUBRDUTIIE  TRAIR(B,A) 

THIS  SUBPROGRAM  CALCULATES  THE  TRAISPOSE  OF  A  MATRIX  “A" 
STORIIG  IT  II  THE  ARRAY  "B'‘ 

IHPLICIT  REAL*8  (A“H,0-Z) 

DIMEISIOI  A(6,6) ,B(6,6) 

DO  10  1=1,6 
DO  10  J=l,6 
10  B(J,I)=A(I,J) 

RETURH 
EID 


=:======:=x=:==:=====:=:==r=:==:  T  R  A  I  P  ==================:=====: 

SUBRDUTIIE  TRAIP(A) 

THIS  SUBPROGRAM  CALCULATES  THE  TRAISPOSE  OF  A  SQUARE  MATRIX 
••A*'  STORIIG  IT  II  ITSELF 


IMPLICIT  REAL»8  (A-H,0-Z) 
DIMEISIOI  A(6,6) 

1=6 


) 


10 


c 

c  == 


■1=1-1 

DO  10  1=1,11 
11=1+1 

DO  10  J=I1,I 
S=A(I,J) 
A(I,J)=A(J,I) 
Aa,I)=S 

RETURI 

EIO 


C  ========:====:=«« 


=  A  D  M  T  X  =================:=~I 


SDBROUTIIE  ADHTX(C,A,B)  '  "  " 

C 

C  THIS  SUBPROGRAM  CALCULATES  THE  MATRIX  OPERATIOI 

IMPLICIT  REAL+8  (A-H,0-Z) 

DIMEISIOF  A(6,6) ,B(6,6) ,C(6.6) 

DO  10  1=1,6 
DO  10  J=l,6 
Ca,J)=A(I,J)+B(I,J) 

COITIIUE 
RETURH 
EID 


10 


C  === 
C  === 


SUBROUTIIE  SUBMTCC , A ,B)  =================== 


10 


C  THIS  SUBPROGRAM  CALCULATES  THE  MATRIX  OPERATIOH 

IMPLICIT  REAL+8  CA-H,0-Z) 

DIHEISIOI  A(6,6) ,B(6,6) ,C(6,6) 

DO  10  1=1,6 
DO  10  J=l,6 
Ca,J)=A(J,I)-B(I,J) 

COITIIUE 
RETURI 

C 

SUBROUTIIE  ATIMB (C , A  ,B)  ========== 

C 

C  OPERATIOI  C 

r  M  '  *^^®ER  of  rows  of  A  AID  C 

C  M  :  ACTUAL  lUMBER  OF  COLUMIS  OF  A  AID  ROWS  OF  B 

c  L  :  ACTUAL  lUMBER  OF  COLUMIS  OF  B  AID  C 

IMPLICIT  REAL»8  (A-H,0-2) 

^  “I^EISIOI  A(6,6)  ,B(6,6)  ,C(6,6) 

DO  10  1=1 ,6 
DO  10  J=l,6 

ca,J)=O.DO 

DO  10  K=l,6 

ca,J)=C(l,J)+A(I,K)*B(K,J) 


=  A  ♦  B 


10 


RETURI 

EID 


C  === 


^  SUBROUTIIE  ATIMB3(C,A~Br”  —=—===—=—=—==== 

c  THIS  SUBPROGRAM  CALCULATES  THE  MATRIX  OPERATIOI  C  =  A  •  B 

IMPLICIT  REAL*8  (A-H,0-Z) 

^  OMMSIOI  A(3,3),B(3,3),C(3,3) 

DO  10  1=1,3 
DO  10  J=l,3 
C(I, J)=0.D0 
DO  10  K=l,3 

10  ca,J)=C(I,J)+A(I,K)»B(K,J) 


RETURI 

EID 
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SUBROUTIIE  MULV1(C,A,B) 

C 

C  THIS  SUBPROGRAH  CALCULATES  THE  MATRIX  OPERATIOH 
C  C  =  A  ♦  B  ,  WHERE  B  IS  A  VECTOR 
C  I  :  ACTUAL  lUHBER  OF  ROWS  A 

C  M  :  ACTUAL  lUMBER  OF  COLUMIS  OF  A  AID  OF  ROWS  OF  B 
C 

IMPLICIT  REAL*8  (A-H,0~Z) 

DIMEISIOI  A(6,6),B(6),C(6) 

DO  10  I~l,6 
C(I)=O.DO 
DO  10  J=l,6 

10  C(I)=C(I)+A(I,J)*B(J) 

RETURI 

EID 


SUBROUTIIE  HULV2(C,A,B) 

C 

C  THIS  SUBPROGRAM  CALCULATES  THE  MATRIX  OPERATIOH 
C  C  =  A  ♦  B  ,  WHERE  A  IS  A  VECTOR 
C  H  :  ACTUAL  HUMBER  OF  COLUMHS  OF  A 
C  M  :  ACTUAL  HUMBER  OF  COLUMHS  OF  B  AHD  OF  ROWS  OF  B 
C 

IMPLICIT  REAL*8  (A-H,0-Z) 

DIMEHSIOH  A(6),B(6,6),C(6) 

DO  10  1=1,6 
C(I)=O.DO 
DO  10  J=l,6 

10  C(I)=C(I)+A(J)*B(J,I) 

RETURH 

EID 


SUBROUTIIE  MULVV(C,A,B) 

THIS  SUBPROGRAM  CALCULATES  THE  MATRIX  OPERATIOH 
C  =  A  ♦  B  ,  WHERE  A  AHD  B  IS  A  VECTOR 


IMPLICIT  REAL*8  (A-H,0-Z) 
DIMEHSIOH  A(6) ,B(6) ,C(6,6) 
DO  10  1=1,6 
DO  10  J=l,6 
10  C(I,J)=A(I)*B(J) 

RETURH 

EID 


SUBROUTIIE  SCLVV(C,A,B) 

C 

C  THIS  SUBPROGRAM  CALCULATES  THE  MATRIX  OPERATIOH 

C  C  =  A  ♦  B  ,  WHERE  A  AID  B  IS  A  VECTOR,  AHD  C  IS  SCALAR 

C 

IMPLICIT  REAL*8  (A-H,0-Z) 

DIMEHSIOH  A(6) ,B(6) 

C=O.DO 
DO  10  1=1,6 
IF  (I,GE.4)  THEH 
C=C+2.D0*A(I)*B(I) 

ELSE 

C=C+A(I)*B(I) 

EID  IF 

10  COITIHUE 


C 

RETURH 

EID 


SUBROUTIIE  AIIHV(A) 
IMPLICIT  REAL*8  (A-H,0-Z) 
DIMEHSIOH  A(6,6) 

C 

1=6 
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c 

DO  26  1=1,1 
COI=A(I,I) 

DO  2  J=1,I 
2  A(I,J)=A(I,J)/COI 
A(I,I)=1.DO/COI 
DO  26  J=1 ,I 
IF(J-I)  4,26.4 

4  DO  36  K=1,I 
IF(K-I)  5,36,5 

5  A(J,K)=A(J,K)-A(I,K)*A(J,I) 
36  COITIIUE 

A(J,I)=-A(I,I)*A(J,I) 

26  COITIIUE 
C 

RETURI 

EID 


c  === 

SUBROUTIIE  AIIIV3(A) 

IMPLICIT  REALMS  (A-H,0-Z) 

DIMEISIOI  A(3,3) 

1 

1 

1 

1 

t 

1 

1 

c 

1=3 

c 

DO  10  1=1,1 

COI=A(I,I) 

DO  15  J=1,I 

A(I,J)=A(I,J)/COI 

15 

A(I,I)=1,D0/C0I 

DO  10  J=1.H 

IF(J-I)  5,10,5 

5 

DO  20  K=1,H 

IF(K-I)  6,20,6 

6 

A(J,K)=A(J,K)-A(I,K)*A(J,I) 

20 

COITIIUE 

A(J,I)=-A(I,I)*A(J,I) 

10 

COITIIUE 

C 

RETURI 

EID 

SUBROUTIIE  C0HVER(D2,D3) 

C  I 

THIS  PROGRAM  TRAISFORMS  THE  FOURTH  ORDER  STIFFIESS 

I 

C  I 

C  — — 

TEISOR  TO  A  SECOID  ORDER  MATRIX  FOR  PLAIE  STRESS 

I 

IMPLICIT  REAL*8  (A~H,0-Z) 

DIMEISIQI  D2(6,6),D3(6,6) 

C 

D2(1,1)=D3(1,1)-D3(1,3)*D3(3,1)/D3(3,3) 

D2(l ,2)=D3(1 ,2)-D3(l ,3)*D3(3,2)/D3(3 ,3) 

D2(1,3)=D3(1,4)-D3(1,3)*D3(3,4)/D3(3,3) 

D2(2,1)=D3(2,1)-D3(2,3)*D3(3,1)/D3(3,3) 

D2(2,2)=D3(2,2)-D3(2.3)*D3(3,2)/D3(3,3) 

D2(2,3)=D3(2,4)“D3(2,3)*D3(3,4)/D3(3.3) 

D2(3,1)=D3(4,1)-D3(4,3)»D3(3,1)/D3(3,3) 

D2(3,2)=D3(4,2)-D3(4,3)*D3(3,2)/D3(3,3) 

D2(3,3)=D3(4,4)-D3(4,3)*D3(3,4)/D3(3,3) 

D2(1,2)=(D2(1,2)+D2(2,1))*0.5D0 

D2(2,1)=D2(1,2) 

D2(1,3)=(D2(1,3)+D2(3,1))*0.5D0 

D2(3,1)=D2(1,3) 

D2(2,3)=(D2(2,3)+D2(3,2))*0.5D0 

D2(3,2)=D2(2,3) 

RETUKI 

EID 

SUBROUTIIE  DMAGEKDM.PHI) 

C 

C  THIS  SUBPROGRAM  CALCULATES  THE  DAMAGE  EFFECT  TEISOR  M(I,J)  AID 
C  THE  DERIVATIVE  DAMAGE  TEISOR  WITH  RESPECT  TO  DAMAGE  VARIABLES 
C 

IMPLICIT  REAL*8  (A-H.O-Z) 

DIMEISIOI  DM(6.6),PHI(6),F(6,6) 
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c 

P1=1.D0~PHI(1) 

P2=l. DO-PHI (2) 

P3=l. DO-PHI (3) 

P4=PHI(5)*PHI(5)*P1 
P5=PHI(6)*PHI(6)*P2 
P6=PHI(4)*PHI(4)*P3 
P7=2 . DO*PHI (4) ♦PH I ( 5 ) ♦PHI (6) 

G=2 .D0^(P1^P2^P3-P4-P5-P6-P7) 

C 

F (1 , 1 )=2 . DO^ (P2^P3-PHI (5) ♦PHI (5) ) 

F(1,4)=2.D0^(PHI(6)^PHI(5)+PHI(4)^P3) 

F(1,6)=2.D0^(PHI(4)^PHI(5)+PHI(6)^P2) 

C 

F(2,2)=2.DO^(Pl^P3-PHI(6)^PHI(6)) 

F(2,4)=F(1,4) 

F(2 , 5)=2 . DO^ (PHI (4) ♦PHI (6)+PHI (5) ♦?! ) 

C 

F(3,3)=2.DO^ (P1^P2-PHI(4)^PHI(4)) 

F(3,5)=F(2,5) 

F(3,6)=F(1,6) 

C 

F(4,1)=*0.5D0^F(1,4) 

F(4,2)=F(4,1) 

F(4,4)=P2^P3+P1^P3-PHI(5)^PHI(5)-PHI(6)^PHI(6) 

F(4,5)=0.5D0^F(1,6) 

F(4,6)=0.5D0^F(2,5) 

C 

F(5,2)=0.5D0^F(2,5) 

F(5,3)=F(5,2) 

F(5,4)=0.5D0^F(1,6) 

F(5 , 5) =P1 ♦P3+P1^P2-PHI (6) ♦PHI (6)-PHI (4) ♦PHI (4) 
F(5,6)=0.5D0^F(1,4) 

C 

F(6,1)=F(5»4) 

F(6,3)=F(6,1) 

F(6,4)=F(5,2) 

F(6,5)=F(5,6) 

F(6,6)=P2^P3+P1+P2-PHI(5)^PHI(5)-PHI(4)^PHI(4) 

C 

DO  10  1=1,6 
DO  10  J=l,6 
10  DH(I,J)=F(I,J)/G 
C 

RETURH 

EVD 


D  H  A  G  E  2 


SUBROUTIHE  DMAGE2(DM ,XHPHI ,PHI) 

THIS  SUBPROGRAM  CALCULATES  THE  DAMAGE  EFFECT  TESSOR  M(I,J)  AHD 
THE  DERIVATIVE  DAMAGE  TEHSOR  WITH  RESPECT  TO  DAMAGE  VARIABLES 

IMPLICIT  REALMS  (A-H,0-Z) 

DIMEISIOI  DM(6,6) ,XMPHI (6,6,6) ,PHI(6) ,F(6,6) , FI (6, 6, 6) 
DIMEHSIOH  Gl(6) 

C 

Pl=l. DO-PHI (1) 

P2=1.D0-PHI(2) 

P3=l. DO-PHI (3) 

P4=PHI(5)^PHI(5)^P1 
P5=PHI(6)^PHI(6)^P2 
P6=PHI(4)+PHI(4)^P3 
P7=2 . DO^PHI (4) ♦PHI (5) ♦PHI (6) 

G=2 . DO^ (P1^P2^P3-P4-P5-P6-P7) 

C 

G1 ( 1 )=-2 . DO^ (P2^P3-PHI (5) ♦PHI (5 ) ) 

G1 (2 ) =-2 . DO^ (P1^P3-PHI (6) ♦PHI (6) ) 

G1 (3)=-2 . DO^ (P1^P2-PHI (4)^PHI (4) ) 

G1 (4)=-4 . DO^ (PHI (4) ♦P3+PHI (5)^PHI (6) ) 

G1 (5)=-4 . DO^ (PHI (5) ♦Pl+PHI (4)^PHI (6) ) 

G1 (6)=-4 , DO^ (PHI (6) ♦P2+PHI (4)^PHI (5) ) 

C 

F ( 1 , 1 ) =2 . DO^ (P2^P3-PHI ( 5 ) ♦PHI ( 5 ) ) 

F(1,4)=2.D0^(PHI(6)^PHI(5)+PHI(4)^P3) 

F(1,6)=2.D0+(PHI(4)^PHI(5)+PHI(6)^P2) 

C 

F(2 , 2)=2 . DO^ (P1^P3-PHI (6)^PHI (6) ) 

F(2,4)=F(1,4) 


oo  o  o  oo  O  o  no  o  o  on 


C 


C 


C 


C 


C 


10 


F(2 . 5) =2 . DO* (PHI (4) *PHI (6) +PHI (5) ♦PI ) 

F(3 ,3)=2 . DO* (P1*P2-PHI (4) *PHI (4) ) 

F(3,5)=F(2,5) 

F(3,6)*F(1,6) 

F(4.1)=0.5DO*F(1,4) 

F(4,2)=F(4,1) 

F(4,4)=P2*P3+P1*P3-PHI(5)*PHI(5)-PHI(6)*PHI(6) 

F(4,5)=0.5D0*F(1,6) 

F(4,6)s0.5D0*F(2,5) 

F(5,2)=0.5D0*F(2,5) 

F(5,3)=F(5,2) 

F(5,4)=0.5D0*F(1,6) 

F(5,5)=P1*P3+P1*P2-PHI(6)*PHI(6)-PHI(4)*PHI(4) 

F(5,6)=0.5D0*F(1,4) 

F(6,1)»F(5,4) 

F(6,3)=F(6,1> 

F(6,4)=F(5,2) 

F(6,5)=F(5,6) 

F(6,6)=P2*P3+P1*P2“PHI(5)*PHI(5)-PHI(4)*PHI(4) 

DO  10  1=1,6 
DO  10  J=l,6 
DH(I,J)=F(I,J)/G 


F1(1,1,2)=2.D0*(-P3) 

F1(1,1,3)=2.D0*(-P2) 

F1(1,1,5)=-4.D0*PHI(5) 

F1(1,4,3)=2.D0*(-PHI(4)) 

F1(1,4,4)=2.D0*P3 

F1(1,4,5)=2.D0*PHI(6) 

F1(1,4,6)=2.D0*PHI(5) 

F1(1,6,2)=2.D0*(-PHI(6)) 

F1(1,6,4)=2.D0*PHI(5) 

F1(1,6,5)=2.D0*PHI(4) 

F1(1,6,6)=2.D0*P2 


F1(2,2,1)=2.D0*(-'P3) 

F1(2,2,3)=2.D0*(-P1) 

F1(2,2,6)=-4.D0*PHI(6) 

F1(2,4,3)=F1(1,4,3) 

F1(2,4,4)=F1(1,4,4) 

F1(2,4,5)=F1(1,4,5) 

F1(2,4,6)=F1(1,4,6) 

F1(2,5,1)=2.D0*(~PHI(5)) 

F1(2,5,4)=2.D0*PHI(6) 

F1(2,5,5)=2.D0*P1 

F1(2,5,6)=2.D0*PHI(4) 


F1(3,3,1)=2.D0*(-P2) 

F1(3,3,2)=2.D0*(-P1) 

F1(3,3,4)=-4.D0*PHI(4) 

F1(3,5,1)=F1(2,5,1> 

F1(3,5,4)=F1(2,5,4) 

F1(3,5,5)=F1(2,5,5) 

F1(3,5,6)=F1(2,5,6) 

F1(3,6,2)=F1(1,6,2> 
F1(3,6,4)=F1(1,6,4) 
F1(3,6,5)=F1(1,6,5) 
F1(3,6,6)=F1 (1,6,6) 


C 


F1(4,1,3)=0.5D0*F1(1,4,3) 

F1(4,1,4)=0.SD0*F1(1,4,4) 

F1(4,1,5)=0.5D0*F1(1,4,5) 

Fl(4,l,6)=O.5D0*Fl(l,4,6) 

F1(4,2,3)=F1(4,1,3) 
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oo  a  o  o  o  oo 


C 


C 


C 


F1(4,2,4)=F1(4,1,4> 

F1(4,2,5)=F1(4,1,5) 

F1(4,2,6)=F1(4,1,6) 

F1(4,4,1)=-P3 

Fl(4,4,2)=-P3 

F1(4,4,3)=-P2-P1 

F1(4,4,5)=-2.D0*PHI(5) 

F1(4,4,6)=-2.D0*PHI(6) 

F1(4,5,2)=0.5D0*F1(1,6,2) 

F1(4,5,4)=0.5D0*F1(1,6,4) 

F1<4,5,5)=0.5D0*F1(1,6,5) 

F1(4,5,6)=0,5D0*F1(1,6,6) 

F1(4,6,1)=0.5D0*F1(2,5,1> 

F1(4,6,4)=0.5D0*F1(2,5»4) 

F1(4,6,5)=0.5DO*F1(2,5,5) 

F1(4,6,6)=0.5D0*F1(2,5,6) 


F1(5,2,1)=0.5D0*F1(2,5,1) 

F1(5,2,4)=0.5D0*F1(2,5,4) 

F1(5,2,5)«0.5D0*F1(2,5,5) 

F1(5,2,6)=0.5D0*F1(2,5,6) 

F1(5,3,1)=F1(5,2,1) 

F1(5,3,4)=F1(5,2,4) 

F1(5,3,5)~F1(5,2,5) 

F1(5,3,6)=F1(5,2,6) 

F1(5,4,2>=0.5D0*F1(1,6,2) 

F1(5,4,4)=0.5D0*F1(1,6,4) 

F1(5,4,5)=0.5DO*F1(1,6,5) 

F1(5,4,6)=0.5D0<'F1(1,6,6) 

F1(5,5,1)=-P3-P2 

F1(5,5,2)=-P1 

F1(5,5,3)=-P1 

F1(5,5,4)=-2.D0*PHI(4) 

FI (5 , 5 ,6) =-2 . DO*PHI (6) 

F1(5,6,3)=0.5D0*F1(1,4,3) 

F1(5,6,4)=0.5D0*F1(1,4,4) 

F1(5,6,5)=0.5D0*F1(1,4,5) 

Fl(5,6,6)=O.5D0*Fl(l,4,6) 


F1(6,1,2)=F1(5,4,2) 

F1(6,1,4)=F1(B,4,4) 

F1(6,1»5)=F1(5,4,5) 

F1(6,1,6)=F1(5,4,6) 

C 

F1(6,3,2)=F1(6,1,2) 

F1(6,3,4)=F1(6,1,4) 

F1(6,3,5)=F1(6,1,5) 

F1(6,3,6)=F1(6,1,6) 

C 

F1(6,4,1)=F1(5,2,1) 

F1(6,4,4)=F1(5,2,4) 

F1(6,4,5)=F1(5,2,5) 

F1(6,4,6)=F1(5,2,6) 

C 

F1(6,5,3)=F1(5,6,3) 

F1(6,5,4)=F1(5,6,4) 

F1<6,5,6)=F1(5,6,5) 

F1(6,5,6)=F1(5,6,6) 

C 

F1(6,6,1)=“P2 

F1(6,6,2)=-P3-P1 

Fl(6,6.3)=-P2 

F1(6,6,4)=-2.D0*PHI(4) 

F1(6,6,5)=-2,D0*PHI(5) 

C 

DO  20  1=1,6 
DO  20  J=l,6 
DO  20  K=l,6 

20  XMPHI(I,J,K)=(F1(I,J,K)*G-F(I,J)*G1(K))/(G*G) 

C 

RETURI 
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EID 


:============r==^  D  M  I  I  V 

SUBROOTIIE  DMIIV(DMI»DM) 


THIS  SUBPROGRAM  CALCULATES  THE  IIVERSE  OF  DAMAGE  EFFECT  TEMSOR  M  I 


IMPLICIT  REAL*8  (A-H,0-Z) 
DIMEISIOl  DHI(6,6) ,DM(6,6) 

DO  10  1=1,6 
DO  10  J=l,6 
10  DMI(I,J)=DM(I,J) 

CALL  AIIIV(DMI) 

RETURl 
EID 


SUBROUTIIE  MDPH2(XMPH2,PHI) 


I  THIS  SUBPROGRAM  CALCULATES  THE  DERIVATIVE  OF  DAMAGE  EFFECT  TEISOR  I 


C 


C 


C 


C 


C 


C 


IMPLICIT  REAL*8  (A-H,0-Z) 

DIMEISIOl  XMPH2<6,6,6,6) ,PHI(6) ,G1(6) ,F(6,6) ,F1(6,6,6) 
DIMEISIOl  F2(6,6,6,6),G2(6,6) 

Pl=l. DO-PHI (1) 

P2=l. DO-PHI (2) 

P3=l. DO-PHI (3) 

P4=PHI(5)>i‘PHI(5)*Pl 

P5=PHI(6)*PHI(6)*P2 

P6=PHI(4)*PHI(4)»P3 

P7=2.D0*PHI(4)*PHI(5)*PHI(6) 

G=2 .D0*(P1*P2*P3-P4-P5-P6-P7) 

GG=G*G 

G4=GG*GG 

G1 (1 )=-2 . DO* (P2+P3-PHI (5) **2) 

G1 (2 )=-2 . DO* (P1*P3-PHI (6) **2 ) 
G1(3)=-2.D0*(P1*P2-PHI(4)**2) 

G1 (4)=-4 . DO* (PHI (4) *P3+PHI (5) *PHI (6) ) 

G1 (5)=-4 . DO* (PHI (5) *P1+PHI (4)*PHI (6) ) 

G1 (6)=-4 . DO* (PHI (6) *P2+PHI (4 ) *PHI (5 ) ) 

G2(1,2)=2.D0*P3 

G2(1,3)=2,D0*P2 

G2(1,5)=4.D0*PHI(5) 

G2(2,1)=2.D0*P3 

G2(2,3)=2.D0*P1 

G2(2,6)=4.D0*PHI(6) 

G2(3,1)=2.D0*P2 

G2(3,2)=2.D0*P1 

G2(3,4)=4.D0*PHI(4) 

G2(4,3)=4.D0*PHI(4) 

G2(4,4)=-4.D0*P3 

G2(4,5)=-4.D0*PHI(6) 

G2(4,6)=-4.D0*PHI(5) 

G2(5,1)=4.D0*PHI(5) 

G2(5,4)=-4.D0*PHI(6) 

G2(5,5)=-4.D0*P1 

G2(5,6)=-4.D0*PHI(4) 

G2(6,2)=4.D0*PHI(6) 

G2(6,4)=-4.D0*PHI(5) 

G2(6,5)=-4.D0*PHI(4) 

G2(6,6)=-4.D0*P2 

F ( 1 , 1 ) =2 . DO* (P2*  P3-PHI ( 5 ) *PH I ( 5 ) ) 

F(1 ,4)=2 . DO* (PHI (6) *PHI (5)+PHI (4) *P3) 

F(1 ,6)=2 . DO* (PHI (4) *PHI (5)+PHI (6) *P2) 
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oo  o  O  OO  O  O  OO  O  Ci  oo 


c 


c 


C 


F (2 , 2) =2 . DO* (P1*P3-PHI (6) ♦PHI (6) ) 

F(2,4)=F(1,4) 

F (2 , 5 )=2 . DO* (PHI (4) *PHI (6)+PHI (5) *P1 ) 

F(3,3)=2.D0*(P1*P2-PHI(4)*PHI(4)) 

F(3»5)=F(2,5) 

F(3,6)*F(1,6) 

F(44)’=0.5D0*F(1,4) 

F(4,2)=F(4,1) 

F(4,4)=P2*P3+P1*P3-PHI(5)*PHI(5)-PKI(6)*PHI(6) 

F(4,5)=0.5D0*F(1,6) 

F(4,6)=0.5D0*F(2,5) 

F(5,2)=0.5D0*F(2,5) 

F(5,3)=F(5,2) 

F(5,4)=0.5D0*F(1,6) 

F(5,5)=P1*P3+P1*P2-PHI(6)*PHI(6)-PHI(4)*PHI(4) 

F(5,6)=0.5D0*F(1,4) 

F(6,1)=F(5,4) 

F(6,3)=F(6,1) 

F(6,4)=F(5,2) 

F(6,5)=F(5,6) 

F(6,6)=P2*P3+P1*P2-PHI(5)*PHI(5)-PHI(4)*PHI(4) 


F1(1,1,2)=2.D0*(-P3) 

F1(1,1,3)=2.D0*(-P2) 

F1(1,1,5)=~4.D0*PHI(5) 

F1(1,4,3)=2.D0*(-PHI(4)) 

F1(1,4,4)=2.D0*P3 

F1(1,4,5)=2.D0*PHI(6) 

F1(1,4,6)=2.D0*PHI(5) 

F1(1,6,2)=2.D0*<-PHI(6)) 

F1(1,6,4)=2.D0*PHI(5) 

F1(1,6,5)=2.D0*PHI(4) 

F1(1,6,6)=2.D0*P2 


F1(2,2,1)=2.D0*(~P3) 

Fi(2,2,3)=2.D0*(-Pi) 

F1(2,2,6)=-4.D0*PHI(6) 

F1(2,4,3)=F1(1,4,3) 

Fl(2,4,4)=Fl(i,4,4) 

F1(2,4,5)=F1(1,4,5) 

F1(2,4,6)=F1(1,4,6) 

F1(2,5,1)=2.D0*(-PHI(5)) 

F1(2,5,4)=2.D0*PHI(6) 

F1(2,5,5)=2.D0*P1 

F1(2,5,6)=2,D0*PHI(4) 


F1(3,3,1)=2,D0*(-P2) 

F1(3,3,2)=2.D0*(-P1) 

Fl(3,3,4)s“4.D0*PHI(4) 

F1(3,5,1)=F1(2,5,1) 

F1(3,5,4)=F1(2,5,4) 

F1(3,5,5)-F1(2,5,5) 

F1(3,5,6)=F1(2,5,6) 

F1(3,6,2)=F1(1,6,2) 

F1(3,6,4)~F1(1,6,4) 

F1(3,6,5)=F1(1,6,5) 

F1(3,6,6)=F1(1,6,6) 


F1(4,1,3)=0.5D0*F1(1,4,3) 

F1(4,1,4)=0.5D0*F1(1,4,4) 

F1(4,1,5)=0.5D0*F1(1,4,5) 

F1(4.1,6)=0.5D0*F1(1,4,6) 

F1(4,2,3)=F1(4,1,3) 

F1(4,2,4)=F1(4,1,4) 

F1(4,2,5)=F1(4,1,5) 
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F1(4,2,6)=F1(4,1,6) 

C 

F1(4,4,1)==-P3 

F1(4,4,2)='-P3 

F1(4,4,3)=-P2-P1 

Fi(4,4,5)=-2.D0*PHI(5) 

F1(4,4,6)=-2.D0+PHI(6) 

C 

F1(4,5,2)«0.5D0*F1(1,6,2) 

F1(4,5,4)=0.5D0*F1(1,6,4) 

F1(4,5,5)=0.5D0*F1(1,6,5) 

F1(4,5,6)=0.5D0*F1(1,6,6) 

C 

F1(4,6,1)=0.5D0*F1(2,5,1) 

F1(4,6,4)=0.5D0*F1(2,5,4) 

F1(4,6,5)=0.5D0*F1(2,5,5) 

F1(4,6,6)=0.5D0*F1(2,5,6) 

C 

C 

F1(5,24)=0.5D0*F1(2,5,1) 

F1(5,2,4)=0,5D0*F1(2,5,4) 

F1(5,2,5)=0.5D0*F1(2,5,5) 

F1(5,2,6)=0.5D0*F1(2,5,6) 

C 

F1(5.3,1)=F1(5,2.1) 

F1(5,3,4)=F1(5,2,4) 

F1(5,3,5)=F1(6,2,5) 

F1(5,3,6)=F1(5,2,6) 

C 

F1<5,4,2)=0.5D0*F1(1,6,2) 

F1(5,4,4)=:0.5D0*F1(1,6,4) 

F1(5,4,5)*0.5D0*F1(1,6,5) 

F1(5»4,6)=0.5D0*F1(1,6,6) 

C 

F1(5,5,1)=-P3“P2 

F1(5,5,2)=-P1 

F1(5,5,3)=-P1 

F1(5,5,4)=-2.D0*PHI(4) 

F1(5,5,6)=-2.D0*PHI(6) 

C 

F1(5,6,3)=0.5D0*F1(1,4,3) 

F1(5,6,4)=0.5D0*F1(1,4,4) 

F1(5,6,5)=0,5D0*F1(1,4,5) 

Fl(5,6,6)=O.5D0*Fl(l,4,6) 

C 

C 

F1(6,1»2)=F1(5,4,2) 

F1(6,1,4)=F1(5,4>4) 

F1(6,1,5)=F1(5,4,5) 

F1(6,1,6)=F1(5,4,6) 

C 

F1(6,3,2)=F1(6,1,2) 

F1(6,3,4)=F1(6,1,4) 

F1(6,3,5)=F1(6,1,5) 

F1(6,3,6)=F1(6,1,6) 

C 

F1(6,4,1)=F1(5,2,1) 

F1(6,4,4)=F1(5,2,4) 

F1(6,4,5)=F1(5,2,5) 

F1(6,4.6)=F1(5,2,6) 

C 

F1(6,5,3)=F1(5,6,3) 

F1(6,5,4)=F1(5,6,4) 

F1<6,5,5)=F1(5,6,5) 

F1(6,5,6)=F1(5,6,6) 

C 

Fl(6,6»l)=-P2 

F1(6,6,2)=-P3"P1 

Fl(6,6,3)=-P2 

F1(6»6,4)=-2.D0*PHI(4) 

F1(6,6,5)«-2.D0*PHI(5) 

C 

C 

C 

F2(1,1,2,3)=2.D0 

F2(l,l,3,2)=2.DO 

F2(1,1,5,5)=-4.D0 

C 

F2(1,4,3,4)=-2.D0 

F2(1,4,4,3)=-2.D0 
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c 


c 

c 


c 


c 


c 

c 


c 


c 


c 

c 


c 


c 


c 


c 


c 

c 


c 


F2(1,4,5,6)=2.D0 

F2(1,4,6,5)=2.D0 

F2(1,6,2,6)=-2.D0 

F2(l,6,4,5)=2.DO 

F2(1,6,5,4)=2.D0 

F2(1,6,6,2)=-2.D0 


F2(2,2,1,3)=2.D0 

F2(2,2,3,l)=2.DO 

F2(2,2,6,6)=-4.D0 


F2(2,4,3,4)=F2(1,4,3,4) 

F2(2,4,4,3)=F2(1,4,4,3) 

F2(2,4,5,6)=F2(1,4,5,6) 

F2(2,4,6,5)=F2(1,4,6,5) 

F2(2,54,5)=-2.D0 

F2(2,5,4,6)=2.D0 

F2(2,5,5,1)=-2.D0 

F2(2,5,6,4)=2.D0 


F2(3,3,1»2)=:2.D0 

F2(3,3,24)=2.D0 

F2(3,3,4,4)=-4.D0 


F2(3»54,5)=F2(2,54,5) 

F2(3,5,4,6)=F2(2,5,4,6) 

F2(3,5,54)=F2(2,5>5,1) 

F2(3,5,6,4)=F2(2,5.6,4) 

F2(3,6,2,6)=F2(1,6,2,6) 

F2(3,6,4,5>=F2(1,6,4,5) 

F2(3,6,5,4)=F2(1,6,5,4) 

F2(3,6,6,2)=F2(1,6,64) 


F2(4  4,3,4)=0.5D0*F2(1,4,3,4) 
F2(4,1,4,3)=0.5D0*F2(1,4,4,3) 
F2(4,1.5,6)=0.5D0*F2(1,4,5,6) 
F2(4,1,6,5)=0.5D0*F2(1,4,6.5) 

F2(4,2,3,4)=F2(4,1,3,4) 

F2(4,2,4,3)=:F2(4,1,4,3) 

F2(4,2,5,6)=F2(4,1,5,6) 

F2(4,2,6,5)=F2(4,1,6,5> 

F2(4,4,1,3)=1.D0 

F2(4,4,2,3)=1.D0 

F2(4,4,3,1)=1.D0 

F2(4,4,3,2)=1.D0 

F2(4,4,5,5)=-2.D0 

F2(4,4,6,6)=-2.D0 

F2(4,5,2,6)=0.5D0*F2(1,6,2,6) 

F2(4,5,4,5)=0.5D0*F2(1»6,4,5) 

F2(4,5.5,4)=O.5D0tF2(l,6,5,4) 

F2(4,5,6,2>=0.5D0*F2(1,6,6,2) 

F2<4,6,1,5)*0.5D0*F2(2,5  4,5) 
F2(4,6,4,6)=0.5D0*F2(2,5,4,6) 
F2(4,6,5,1)=0.5D0*F2(2,5,5,1) 
F2(4,6,6,4)=0.5D0*F2(2,5,6.4) 


F2(5,2  4,5>=0.SD0*F2(2,5  4,5) 
F2(5,2,4,6)=0.5D0^F2(2,5,4,6) 
F2(5,2,5,1)=0.5D0*F2(2,5,5,1> 
F2(5.2,6,4)=0.5D0*F2(2,5,6,4) 

F2(5,3,1,5)=F2(5,24,5) 

F2(5,3,4,6)=F2(5,2,4,6) 

F2(5,3,5,1>=F2(5,2,54) 

F2(5,3,6,4)=F2(5,2,6,4) 

F2(5,4,2,6)=0.5D0*F2(1,6,2,6) 

F2(5,4,4,5)=0.5DO*F2(1,6,4,5) 

F2(5,4,5,4)=0.5DO*F2(1,6,5,4) 


F2(5,4,6,2)=0.5D0*F2(1,6,6,2) 


F2(5,5,1,2)=1.D0 

F2(5,5,1,3)=1.D0 

F2(5,5,2,1>=1.I>0 

F2(5,5,3,1)=1.D0 

F2(5,5,4,4)=-2.D0 

F2(5,5,6,6)=-2.D0 


F2(5,6,3,4)-0.5D0*F2(1,4.3,4) 

F2(5.6,4,3)=0.5D0*F2(1,4,4,3) 

F2(5,6,5,6)=0.5D0*F2(1,4,5,6) 

F2(5,6,6,5)=0.5D0*F2(1,4,6,5) 


F2(6,1,2,6)=F2(5,4,2,6) 

F2(6,1,4,5)=F2(5,4,4,5) 

F2(6,1,5,4)=F2(5,4,5,4) 

F2(6,1,6»2)=F2(5,4.6»2) 

F2(6»3,2,6)=F2(6,1,2,6) 

F2(6,3,4,5)=F2(6,1»4,5) 

F2(6,3,5,4)=F2(6,1,5,4) 

F2(6,3,6,2)=F2(6,1,6.2) 

F2(6,4,1,5)=F2(5,2,1,5) 

F2(6,4,4,6)=F2(5,2,4,6) 

F2(6,4,5,1)=F2(5,2,5,1) 

F2(6,4,6,4)=F2(5,2,6,4) 

F2(6,5,3,4)=F2(5,6,3,4) 

F2(6,5,4,3)=F2(5,6,4,3) 

F2(6.5,5,6)=F2(5,6,5,6) 

F2(6,5,6,5)=F2(5,6,6,5) 

F2(6,6,1,2)=1.D0 

F2(6,6,2,1)=1.I>0 

F2(6,6,2,3)*1.D0 

F2(6,6,3,2)=1.D0 

F2(6,6,4,4)=-2.D0 

F2(6,6,5,5)=-2.D0 

DO  10  1-1,6 
DO  10  J=l,6 
DO  10  K=l,6 
DO  10  L=l,6 

XIIPH2(I,J,K,L)=((F2(I,J,K,L)»G+F1(I,J,K)*G1(L)“F1(I,J,L)*G1(K) 

$-F(I,J)*G2(K,L))*GG-(Fl(I,J,K)*G-F(I,J)*Gl(K))*2.D0*G*Gl(L))/G4 


RETURN 

END 


